Вычислить значение выражения - Pascal ABC (14097)

Формулировка задачи:

P= (31 П i=5)ctg(i+"пи")

Код к задаче: «Вычислить значение выражения - Pascal ABC (14097)»

textual
var i:integer;
    p:real;
begin
p:=1;
for i:=5 to 31 do
p:=p*cos(i+pi)/sin(i+pi);
write('P=',p:0:4);
end.

5   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ