Question

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

Answer 1

 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.