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

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

Регистрация
20 Сен 2013
Сообщения
79
Репутация
0
Спасибо
0
Монет
0
Задача на языке Паскаль. Использовать только оператор While.Вычислить: P=1+(1*2)+(1*2*3)+(1*2*3*...*R
 
Регистрация
8 Июн 2013
Сообщения
85
Репутация
0
Спасибо
0
Монет
0
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.
 
Регистрация
7 Авг 2013
Сообщения
80
Репутация
0
Спасибо
0
Монет
0
100 р
Программа готова
284182586_9e467d7150bbf2df78a20ad14c85e73f_800.png

 
Сверху Снизу