Вопрос Задачи паскаль с предусловием

[pasa]

Задача на языке Паскаль. Использовать только оператор While.Вычислить: P=1+(1*2)+(1*2*3)+(1*2*3*...*R

 

[vxcvxcvxcv]

var
r: integer;
i: integer = 1;
j: integer = 1;
p: integer = 0;

begin
write('Введи R: ');
read(r);
while not (r = i) do
begin
j := j * i;
p := p + j;
i := i + 1;
end;
writeln('Ответ: ', p);
end.

 

[Рома 1308]

program Hello;
var i,S,P,R:integer;
begin
write ('Введите число R: ');
readln(R);
i := 0;
S := 1;
while i

 

[angerangel]

100 р
Программа готова

 

[koJlya]

p:=0;
a:=1;
for i:=1 to r do begin
a:=a*i;
p:=p+a end;
а теперь это переведи в оператор While.