Mam problem z zadaniem , w którym muszę napisać program wyświetlający naturalne dzielniki liczby podanej przez użytkownika. Wszystko niby dobrze,ale wyświetla wszystkie dzielniki a ja potrzebuję tylko te naturalne. Pomoże ktoś?
- Kod: Zaznacz wszystko
program dzielniki;
uses crt;
var
i,n : integer;
begin
clrscr;
writeln('Podaj liczbe: ');
readln(n);
for i:=1 to n do
if n mod i = 0 then writeln(i);
readln;
end.