Va kommunikatsiyalarni rivojlantirish vazirligi

Dastur
Program L24a; {Sonning bo’luvchilari. 2 -usul }
uses Crt;
var
n, d : integer;
begin
write('Butun sonni kiriting '); readln(n);
writeln(n, ‘sonining bo’luvchilari’);
d := 1;
while d*d < n do
begin
if n mod d=0 then write(d, ' ', n div d, ' ');
d := d + 1
end;
if d*d = n then write(d); writeln
end.
Topshiriqlar:
1. 1*2*3*…*100qP i ko`paytmani hisoblash algoritmini tuzilsin.
Nazariy savollar.

1. 
   Takrorlanuvchi jarayonlar dеb nimaga aytiladi?
   
2. 
   Ixtiyoriy bo’linishni hisoblash algorimini tuzing.