Помогите решить, заключительнее задание номер 3

Помогите решить, заключительное задание номер 3

Задать свой вопрос
1 ответ
Var
    p: real;
    n, k: integer;

begin
    readln(n);
    p := 1;
    
    for k := 1 to n do
        p := p * (1 + k);
        
    writeln('P = ', p);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт