Предмет: Информатика,
автор: sterox5
Даю 40 баллов(в тот раз не туда нажал) Помогите пожалуйста с номером 4(7 класс Паскаль),желательно не очень сложно решить,а то не поверят
Приложения:
Ответы
Автор ответа:
0
Автор ответа:
0
а там ведь когда вводишь 1 должно быть 32,а тут нет
Автор ответа:
0
исправьте пожалуйста
Автор ответа:
0
var i,n:integer; a,p:real;
begin
write('n = '); readln(n);
p:=32;
for i:=1 to n-1 do
begin
a:=(2+2*i+1)/(2*i+1);
p:=p*a;
end;
writeln('p = ',p);
end.
Пример:
n = 5
p = 1.17333333333333E+002
begin
write('n = '); readln(n);
p:=32;
for i:=1 to n-1 do
begin
a:=(2+2*i+1)/(2*i+1);
p:=p*a;
end;
writeln('p = ',p);
end.
Пример:
n = 5
p = 1.17333333333333E+002
Приложения:
Похожие вопросы
Предмет: Химия,
автор: yonkada
Предмет: Английский язык,
автор: romavoloboev
Предмет: Русский язык,
автор: ostaevazalina0
Предмет: Геометрия,
автор: Франcheska
Предмет: Математика,
автор: fms331