Var r,s,b:real;
begin readln (b);
r:=b/2*(1+sqr(2));
s:=8*sqr(r)*sqr(3)-(sqr(2)*2);
writeln (r);
writeln(s);
<span>end.</span>
Var a:array[1..10]of real;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(10,100)/10;
write(a[i]:6);
end;
writeln();
for i:=1 to 10 do
write(sqr(a[i]):6);
<span>end.</span>
Program gt;
var p:real;
a,b,w:integer;
begin
a:=-1;
b:=1;
w:=-1;
while a<=103 do
begin
a:=a+2;
b:=b+2;
w:=w*-1;
p:=p+1/a*b*w;
end;
writeln(p);
end.
2)
program gt;
var p:real;a,b,w:integer;
begin
a:=-1;b:=1;w:=-1;p:=0;
while a<=103 do
begin
a:=a+2;
b:=b+2;
w:=w*-1;
p:=p+(1/(a*b))*w;
end;
writeln(p);
<span>end.
1-первый случай
2-второй случай</span>
Скачать содержимое,прочесть, удалить сообщение, отправит в спам