Озеро Байкал считается морем по своим размерам. Там постоянные ветра, дожди, снег и прочее. В прилегающих районах другой климат, так как они отдалены от Байкала.
Это своими словами
Procedure print();
var i,j: char;
begin
for i := 'A' to 'Z' do
for j := 'A' to i do
write(j)
end;
begin
print()
end.
512 байт= 4096 бит=0,5 Кбайт
Program n1;
var n,m,p,k: longint;
begin
write('введите n: ');
readln(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
K:=K+1;
m:=m div 10;
end;
writeln('кол-во цифр: ',K);
end.
<span>var
a, b, c, P: real;
begin
writeln('Введите два катета:');
readln(a, b);
P := a + b;
c := sqrt(sqr(a) + sqr(b));
P := P + c;
writeln(' c = ', c:0:2);
writeln(' P = ', P:0:2);
end.</span>