Pascal как это решить - Вопросы по Pascal

Вопрос Pascal как это решить

Регистрация
4 Авг 2013
Сообщения
73
Репутация
0
Спасибо
1
Монет
0
Это вообще что, и как мне из этого написать код
279415856_19b96fd9bbaa7184468afed5b28b7aab_800.jpg

 
Регистрация
5 Авг 2013
Сообщения
102
Репутация
0
Спасибо
0
Монет
0
Ну, математику за вас изучать никто не подписывался.
П обычно обозначает произведение
 
Регистрация
10 Окт 2013
Сообщения
82
Репутация
0
Спасибо
0
Монет
0
Алгебраическое произведение это. Делаешь цикл от 1 до n и на каждом шаге бац-бац...
(1 + 2) в квадрате деленное на 4 умножить на (2 + 2) в квадрате деленное на 4 умножить на (3 + 2) в квадрате деленное на 4 и так далее до n.
На Питоне так n = int(input('n ')) + 1
p = 1
for i in range(1, n):
p *= ((i + 2) ** 2) / 4
print(p) Паскаль не знаю
 
Регистрация
15 Сен 2013
Сообщения
96
Репутация
6
Спасибо
0
Монет
0
Program P1;
uses crt;
var i, n: integer;
p: real;
begin
clrscr;
p:=1;
writeln ('Введите с клавиатуры целое положительное число n, после чего нажмите клавишу Enter.');
write ('n=');
readln (n);
if n<=1 then writeln ('Ошибка: введенное Вами число не является положительным.') else begin
for i:=1 to n do p:=p*(sqr (i+2)/4);
writeln ('Результат произведения: ', p:0:2);
end;
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.
 
Сверху Снизу