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

Question

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

Answer 1

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.