паскаль. нахождения факториала 3мя циклами; Составить таблицу квадратов от 1 до 10 3мя циклами!!!!

Question

Антон · Accepted Answer

1) 
 
f := 1; for i := 1 to n do f := f * n; 
 
f := 1; i := 1; while i < n do begin inc( i ); f := f * i; end; 
 
f := 1; i := 0; repeat inc(i); f := f * i; until i = n; 
 
2) 
 
for i := 1 to 10 do WriteLn(i, '^2=', i*i); 
 
i := 0; while i < 10 do begin inc( i ); WriteLn(i, '^2=', i*i); end; 
 
i := 0; repeat inc( i ); WriteLn(i, '^2=', i*i); until i = 10;