Question

8 класс, напишите программу на Pascal ABC по этой задаче. Именно программу которую можно скопировать напрямую в сам паскаль, большое спасибо.
Сама задача:
"Вводится N целых чисел, определите количество чисел кратных 10"

Answer 1

Ответ:

Объяснение

var n,i,a,b:integer;

begin

b := 0;

write('введите n - '); readln(n);

for i:= 1 to n do begin

write('введите a - '); readln(a);

if a mod 10 = 0 then

b := b + 1;

end;

write('количество чисел кратных 10 - ', b);

end.