Круг получается...............
Природная:болото,вулкан,степь
Техническая:Самолет
Смешанная:библиотека,оркестр
Думаю,что так
Program z10;
var a,b:real;
Begin
a:=1;b:=0;
while a<1024 do
begin
a:=a*2;
b:=sqrt(a+b);
end;
write(b);
<span>end.
2)
Program z10;
var w,j,p,i,k:longint;
x,s:real;
Begin
read(x);
s:=0;k:=10;
for i:=1 to k do
begin
p:=1;w:=3*i-1;
for j:=1 to w do
begin
p:=p*j;
end;
s:=s+x/p;
end;
write(s);
<span>end.
2-это 4</span></span>
Const
n=10;
var
a:array[1..n]of integer;
i,j,buf:integer;
begin
for i:=1 to n do
begin
a[i]:=random(3);
write(a[i]:4);
end;
{сортирую по возрастанию}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j]then
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
{пересылаю нули в конец масива}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]=0 then
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
for i:=1 to n do
write(a[i]:4);
end.