Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающихся на 7. программа получает на

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающихся на 7. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).в последовательности всегда имеется число, оканчивающееся на 7. количество чисел не превышает 100. введённые числа не превышают 1000. программа должна вывести одно число, минимальное число, оканчивающееся

famina1998 · Answer

var a,min : integer;
begin
a := 5;
min := 1000;

While a <> 0 do
begin
readln (a);
if (a mod 10 =7) and (a < min ) then
min := a;
end;
writeln (min);
end.

Популярные вопросы