Question

Ребята, помогите с задачей! Надо ввести ее в pascal
Дан ряд чисел. Количество задается пользователем. Найти кол-во четных чисел оканчивающих на 0 или 2
9 класс

Answer 1

var n,i,a,k:integer;

begin

write('Введите количество чисел: ');

readln(n);

writeln;

for i:= 1 to n do

begin

write('Введите число: ');

readln(a);

if ((a mod 2 = 0) and (a mod 10 = 0)) or ((a mod 2 = 0) and (a mod 10 = 2)) then k:=k+1

end;

writeln;

writeln('Кол-во четных чисел оканчивающих на 0 или 2: ',k);

end.