var
a, b: real;
begin
writeln('Введите 2 числа');
readln(a, b);
if a > b then
begin
a:= a + 3;
b:= b - 5;
end;
if a < b then
begin
a:= a - 5;
b:= b + 3;
end;
writeln('a = ', a, ', b = ', b);
end.
1/32 Мбайта = 1024/32 Кбайт = 32 Кбайт = 1024*32 Байт = 1024*32*8 бит
Па<span>мять для одного символа = 1024*32*8/65536 = 4 бита
Размер алфавита = 2^4 = 16 символов</span>
procedure Minmax(var a, b: integer);
var min, max: integer;
begin
if a < b then min := a else min := b;
if a > b then max := a else max := b;
a := min;
b := max;
end;
14
Надеюсь мое объяснение вам помогло. Буду рад если вы отметите мое решение как лучшее