Напишите программу, которая в последовательности - вопрос №11818937 от BasketballGrand 17.02.2020 10:40

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел определяет наименьшее число, оканчивающееся на 5 или 9. Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0. Количество чисел не превышает 1000. Введённые числа не превышают 30000.

BasketballGrand · Answer

Если желаемым языком являлся паскаль,

var a, min : integer;

BEGIN

min := 30000; read(a);

while not(a = 0) do begin

if (a mod 10 = 5) or (a mod 10 = 9) then

if a < min then min := a;

read(a);

end;

write(min);

END.