Напишите программу, которая в
последовательности целых чисел
определяет количество двузначных
чисел, кратных 8 или 5. Программа
получает на вход целые числа, количество
введённых чисел неизвестно,
последовательность чисел заканчивается
числом 0 (0 – признак окончания ввода,
не входит в последовательность).
Программа должна вывести одно число:
количество нужных чисел
Входные данные
20
32
400
0
Выходные данные
2
последовательности целых чисел
определяет количество двузначных
чисел, кратных 8 или 5. Программа
получает на вход целые числа, количество
введённых чисел неизвестно,
последовательность чисел заканчивается
числом 0 (0 – признак окончания ввода,
не входит в последовательность).
Программа должна вывести одно число:
количество нужных чисел
Входные данные
20
32
400
0
Выходные данные
2
More Questions From This User See All
Answers & Comments
Ответ:
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.