Написать программу, вычисляющую выражения - Pascal ABC

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

Вычислить:

Код к задаче: «Написать программу, вычисляющую выражения - Pascal ABC»

textual
var i,j:integer;
    s,p:real;
begin
//1 задание
s:=0;
for i:=1 to 10 do
s:=s+3/i/i;
writeln('S=',s);
//2 задание
p:=1;
for i:=2 to 20 do
p:=p*(2*i-1)/(2*i+1);
writeln('P=',p);
//3 задание
s:=0;
for i:=1 to 100 do
 begin
  p:=1;
  for j:=1 to i do
  p:=p*sin(i/j)/cos(i/j);
  s:=s+p;
 end;
writeln('S=',s);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы