В тропосфере развиваются циклон и антициклон.
Ответ:
Паскаль
Program krug;
var r,d:real;
Begin
writeln ('Введите радиус круга ');
readln(r);
d:=2*r;
write ('Диаметр круга равен ', d);
End.
Объяснение:
См приложен
разработать базу данных...
Program algorithm;
Var i, S: integer;
Begin
S:=1;
For i:=1 to 100 do
Begin
S := S*i;
End;
Writeln(S);
End.
Uses Drawman;
var a,i:integer;
procedure square(a:integer);
begin
pendown;
onvector(a,0);
onvector(0,-a);
onvector(-a,0);
onvector(0,a);
end;
begin
Task('pp4');
ToPoint(7,17);
pendown;
a:=15;
for i:=1 to 8 do
begin
square(a);
penup;
onvector(1,-1);
a:=a-2;
end;
ToPoint(0,0);
<span>end. </span>