Question

Найти все делители числа N, кратные 5

Answer 1

var i, n: integer;
begin
write('N = ');
readln(n);
for i:=1 to n do
if (n mod i = 0) and (i mod 5 = 0) then write(i, ' ');
end.