Предмет: Информатика,
автор: tubus38798
Pascal !!! Паскаль !!! Пожалуйста, выполните задание в паскале и если не сложно , то можете нарисовать блок-схему .
Приложения:
Ответы
Автор ответа:
1
Ответ:
var
x,p:real;
i:integer;
begin
x:=0.01;
p:=1;
for i := 1 to 15 do
begin
p:=p * (1 - arctan(x/sqrt(1-sqr(x)))) / (2+sqrt(x));
x:=x+0.0253;
end;
writeln(p:0:20);
end.
Объяснение:
Приложения:
Интересные вопросы
Предмет: Английский язык,
автор: yulyakatastrofa
Предмет: Русский язык,
автор: Gruzdy
Предмет: Русский язык,
автор: Lordwws
Предмет: Экономика,
автор: Ku6epDrauBEP
Предмет: Математика,
автор: Kost9fghd