Иммануил
4 год назад
С клавиатуры вводится n натуральных чисел, каждое не больше 1000. Подсчитать количество введённых чисел, каждое из которых делится нацело на 3 и оканчивается цифрой 2.Как составить такую задачу в паскале? Пожалуйста посчитайте пожалуйста
ОТВЕТЫ
Emiliya
Oct 24, 2020
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.
100
Смежные вопросы:
