Решить с поддержкою Паскаля

Решить с помощью Паскаля

Задать свой вопрос
1 ответ
1.
var s:real; i:integer; a4,a5:longint;
begin
a4:=1; a5:=5*5;
s:=1/(a4+a5);
for i:=1 to 10 do
 begin
 a4:=a4*4; a5:=a5*5;
 s:=s+1/(a4+a5);
 end;
writeln('s = ',s:9:7);
end.

Итог:
s = 0.0481659

2.
var p:real; i:integer;
begin
p:=1;
for i:=1 to 10 do
 p:=p*(i*i)/(i*i+2*i+3);
writeln('p = ',p:9:7);
end.

Результат:
p = 0.0030822
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт