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

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

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.

при использовании компьютерного алфавита 1 символ = 1 байт, значит

20000 символов = 20000 байт

20000 : 1024 = 19,5 кбайт

19,5 кбайт < 20 кбайт, значит текст на дискету поместиться.

решение на языке pascal

program pr;

var n,a,b,c, sum: integer;

begin

readln (n);

a: =n div 100;

b: =n mod 100 div 10

c: =n mod 10

sum: =a+b+c;

if   sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');

readln;

end.