Составление схемы циклических алгоритмов и программы в Turbo Pascal

[HelpMePlease2013]

Составление схемы циклических алгоритмов и программы ( используя три циклических конструкции: по параметру, с предусловием, с постусловием), решающие следующую задачу:

Cоставьте программу выводящую квадратный корень из произведения первых N чисел.

[Stilet]

const n=0;
var i,p:integer;
begin
 p:=1; for i:=1 to n do p:=p*n; writeln(sqrt(p));
 p:=1; while n>0 do begin  p:=p*n; writeln(sqrt(p)); dec(n);end;
 p:=1; repeat p:=p*n; writeln(sqrt(p));dec(n); until n=0; 
 readln;
end.

Не проверял...

[Poma][a]

const
    n : Integer = 3;
var i,p : integer;
begin
    
 p:=1; for i:=1 to n do p:=p*i; writeln(sqrt(p));
 p:=1; i := n; while i>0 do begin  p:=p*i;  dec(i);end; writeln(sqrt(p));
 p:=1; repeat p:=p*n; dec(n); until n=0; writeln(sqrt(p)) 
 
end.

[Stilet]

n : Integer = 3;

Эх... Всю малину попортил )))

[Poma][a]

Всю малину попортил )))

Наоборот! Так-то пришлось читать и прочее.. А тут твой же вариант, но с махонькими дополнениями..
Ну только если кто-то хотел научить автора самостоятельно описывать переменные или использовать типизированные константы..

И да.. Спасибо!.. Я долго въезжал почему 3-ий цикл был вечным.. потом дошло..

[Аватар]

Я долго въезжал почему 3-ий цикл был вечным.. потом дошло..

Значит не всю малину попортил. Ромаху вот заставил долго куда-то заезжать, тьфу въезжать

[Stilet]

Я долго въезжал почему 3-ий цикл был вечным.. потом дошло..

Блин, и тут раскусили
ПрИдатИлИ, млин...