Napisz program wypisujący wszystkie podzielniki wpisanej przez uzytkownika liczby całkowitej z zakresu od 1 do 1000.
Proszę o pomoc;))) Program najlepiej ,aby ułożony był w pr. Free Pascal
Z góry dziękuję za pomoc ...za zadanie daję 30pkt .
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
Var I, N: Cardinal;
Begin
Readln(N);
For I := 1 To 1000 Do
if (I mod N = 0) Then
Write(I, ' ');
End.