Предмет: Информатика,
автор: Iliyaking
Задача по информатике
Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – минимальное число, оканчивающееся на 4.
Ответы
Автор ответа:
0
Вот держи)
var k,N,numb,min :integer;
begin
min:=30000;
readln(N);
for k:= 1 to N do
begin
readln(numb);
if (numb mod 10 = 4) and (numb < min) then
min:= numb;
end;
writeln(min);
end.
var k,N,numb,min :integer;
begin
min:=30000;
readln(N);
for k:= 1 to N do
begin
readln(numb);
if (numb mod 10 = 4) and (numb < min) then
min:= numb;
end;
writeln(min);
end.
Приложения:
Автор ответа:
0
Ой
Автор ответа:
0
Не та
Автор ответа:
0
И другую ты тоже решал)
Автор ответа:
0
Так что не надо)
Автор ответа:
0
обращайся, если что) с паскалем мне нравится работать ))
Похожие вопросы
Предмет: Другие предметы,
автор: makridenkoanna
Предмет: История,
автор: litvinalika
Предмет: Русский язык,
автор: elrago09
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: Ninellllll199999998