Предмет: Информатика,
автор: qwrtujbfh
СРОЧНО,РЕШИТЕ НОМЕР 9 ПЛИЗ(ПАСКАЛЬ 7 КЛАСС)
Приложения:

Ответы
Автор ответа:
0
var
i,a,b:integer;
s:real;
begin
s:=117;
a:=4;
b:=1;
for i:=1 to 24 do
begin
if i mod 2 = 0 then s:=s-(a/(b+b+2)) else s:=s+(a/(b+b+2));
a:=a+2;
b:=b+2;
end;
Writeln(s);
end.
i,a,b:integer;
s:real;
begin
s:=117;
a:=4;
b:=1;
for i:=1 to 24 do
begin
if i mod 2 = 0 then s:=s-(a/(b+b+2)) else s:=s+(a/(b+b+2));
a:=a+2;
b:=b+2;
end;
Writeln(s);
end.
Похожие вопросы
Предмет: Українська мова,
автор: Аноним
Предмет: Математика,
автор: mania201105
Предмет: Английский язык,
автор: tymplayer74
Предмет: Алгебра,
автор: Renata0510
Предмет: Алгебра,
автор: edik54321