Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 8 и оканчивающихся на 2. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Программа должна вывести одно число: количество чисел, кратных 8 и оканчивающихся на 2
program find;
var
a: integer;
sum: integer;
begin
sum:=0;
a:=2;
while a<>0 do
begin
readln(a);
if (a <> 0) and (a mod 8 = 0) and (a mod 10 = 2) then
sum:= sum + 1;
end;
writeln(sum);
end.
Объяснение: