Zadanie 1. Dla wprowadzonej liczby n wypisz jej dzielniki i ich ilość.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
program zadanie; var n, i, ilosc: integer; begin ilosc:=0; Readln(n); Write('Dzielniki: '); for i:=1 to n do begin if n mod i = 0 then begin Write(i); if i<>n then Write(', ') else WRITE('.'); ilosc:=ilosc+1; end; end; Writeln; Writeln('Ilość dzielników: ', ilosc); Readln; end. |