Var x, y: real;
begin
writeln (' Ââåäèòå ÷èñëà x, y');
readln (x,y);
if x>y then x:=x-y
else x:=x-y;
if x>y then y:=x+y
else y:=y-x;
writeln ('÷èñëî x',x);
writeln ('÷èñëî y',y);
end.
Program sum;
Var a,b,c,d,e,f:real;
Begin
Write ('число a='); Read (a);
Write ('число b='); Read (b);
Write ('число c='); Read (c);
d:=a+b+c;
e:=a*b*c;
f:=d/3;
WriteLn ('Сумма чисел=',d);
Writeln ('Произведение чисел=', e);
Writeln ('Среднее арифметическое чисел=', f);
end.
Uses crt;
var e:array[1..3,1..7] of integer;
s,max,n,m:integer;
index,sum:integer;
<span>procedure max_el;</span>
begin
max:=e[1,1];
sum:=0;
index:=0;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
if e[n,m]>max then
begin
max:=e[n,m];
index:=m;
end;
end;
end;
for n:=1 to 3 do
begin
if e[n,index]<0 then
begin
sum:=sum+e[n,index];
end;
end;
writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum);
end;
begin
clrscr;
writeln('elementy massiva');
writeln;
randomize;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
e[n,m]:=random(100) -50;
write('',e[n,m],' ');
end;
writeln;
end;
writeln;
writeln;
max_el;
readkey;
end<span>.</span>
При мощности алфавита 16 для хранения одного символа требуется log(2)16 = 4 бита.
Объем текста = 4*180*1024 бит = 4*180*1024 / 8 байт = 90*1024 / 1024 Кбайт = 90 Кбайт
да могут норазные примеры например волны итд