Написать 3 программы по начерченной блок-схеме

[VladimirAvakov]

Нужно написать программу по 3 циклам. For, While и Do.



Ребят помогите пожалуйста, очень выручите. Заранее большое спасибо!

[DrStrangeLove]

В скобках что?? (p+1) ??

Если так,то тогда:

С While циклом проще всего - всё очевидно:

Program myprogram;

var n,a,p:Integer;

begin 
WriteLn('Vvedite n:');
ReadLn(n);
a:=1;
p:=0;

while p < n do 
  begin
    a := a * (p+1);
    p := p+1;
  end;

WriteLn(a);
end.

С двумя другими тоже ничего сложного нет:
Цикл For:

Program myprogram;

var n,a,p:Integer;

begin 
WriteLn('Vvedite n:');
ReadLn(n);
a:=1;


for p:=0 to n do 
  begin
    if p < n then 
	a := a * (p+1);
  end;

WriteLn(a);
end.

Цикл Do-While (Repeat until):

Program myprogram;

var n,a,p:Integer;


begin 
WriteLn('Vvedite n:');
ReadLn(n);
a:=1;
p:=0;

repeat  
 a := a * (p+1);
 p := p+1;
 
until not (p<n);
  
WriteLn(a);
end.

P.S.: Написал на паскале,т.к. ты не сказал на чём писать, а раньше спрашивал по паскалю....

[Sciv]

for p:=0 to n-1 do a := a * (p+1);

Нафига там сравнение еще нужно? Тем более что его в блок-схеме нет.