Склавиатуры вводится n натуральных чисел, каждое - вопрос №81130451000 от lushayir 24.07.2022 12:19

Question

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

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