Склавиатуры вводится n натуральных чисел, каждое - вопрос №10008112368 от ghenek2004 10.09.2020 13:38

Question

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

ghenek2004 · Answer

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....