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

so9a so9a    3   21.09.2019 00:40    1

Ответы
Марта09 Марта09  04.08.2020 13:00
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. 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика