Составить программу для нахождения количества чисел кратных 5 на диапазоне от 1 до n

sddssddd sddssddd    1   22.07.2019 01:50    0

Ответы
valeriadavrukova valeriadavrukova  03.10.2020 10:11
Var a,i,n:integer;

begin

read(n);

for i:=0 to n do begin

if (i mod 5) = 0 then a:=a+1;

end;

print(a);

end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика