Question

Напишите программу, которая в
последовательности целых чисел
определяет количество двузначных
чисел, кратных 8 или 5. Программа
получает на вход целые числа, количество
введённых чисел неизвестно,
последовательность чисел заканчивается
числом 0 (0 – признак окончания ввода,
не входит в последовательность).
Программа должна вывести одно число:
количество нужных чисел
Входные данные
20
32
400
0
Выходные данные
2

Answer 1

Ответ:

var

 n, i: integer;

begin

 readln(n);

 i := 0;

 while n <> 0 do

 begin

   if (n > 9) and (n < 100) then

     if (n mod 8 = 0) or (n mod 5 = 0) then inc(i);

   readln(n);

 end;

 writeln(i);

end.