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.