Question

С клавиатуры вводится n натуральных чисел, каждое не больше 1000. Подсчитать количество введённых чисел, каждое из которых делится нацело на 3 и оканчивается цифрой 2.
Как составить такую задачу в паскале? Помогите пожалуйста

Answer 1

var n,i,k,a: integer;

begin

  readln(n);

  k:=0;

  for i:=1 to n do begin

    readln (a);

    if (a div 3 <> 0) and (a mod 10 = 2) then

      k:=k+1;

  end;

  writeln(k);

end.