Предмет: Информатика,
автор: Ярославааа
Помогите пожалуйста решить 1 и 5 задачу !! Программа паскаль
Приложения:

Ответы
Автор ответа:
0
1) program _1;
var i, n: integer; sym:real;
begin
readln (n); p:=1;
for i:=2 to n do
p:=p*((i+1)/(i+2));
write(p:8:3);
end.
5) program _5;
var k, i: byte; s:real;
begin
readln(k);
for i:=1 to k do
s:=s+1/(i*i*i);
write(s:8:3);
end.
var i, n: integer; sym:real;
begin
readln (n); p:=1;
for i:=2 to n do
p:=p*((i+1)/(i+2));
write(p:8:3);
end.
5) program _5;
var k, i: byte; s:real;
begin
readln(k);
for i:=1 to k do
s:=s+1/(i*i*i);
write(s:8:3);
end.
Автор ответа:
0
спасибо большое:)
Похожие вопросы
Предмет: Английский язык,
автор: HesenzadeIsa
Предмет: Английский язык,
автор: vikashveps757
Предмет: Информатика,
автор: kamilachka64
Предмет: История,
автор: малинка55555555
Предмет: Биология,
автор: 19артур