Дано n чисел. найти количество кратных 10

Question

Информатика

Рена

20 марта, 10:52

Дано n чисел. найти количество кратных 10

+2

Ответы (1)

Знаете ответ на вопрос?

Марюня · Answer 1

Var a, n, k: integer;

Begin

Write ('Количество чисел - ') ;

readln (n) ;

k:=0;

For var i:=1 to n do

begin

read (a) ;

if (a mod 10 = 0) then k:=k+1;

end;

Writeln (k) ;

End.