Присваеваеш максимум к каждому числу при определенных условиях
это !!!своеобразный метод!!!
Если ты думаешь что радиоволны то ты ошибаешься. <span>На самом деле, радиоволны в микроволновом излучении несут информацию, например, о нарушении дипольной анизотропии реликтового излучения которое говорит о свойствах Вселенной происходивших 14 миллиардов лет назад,
днк 2 место по хранению информации
CD-ROM хранит информацию около 30 лет
а дискета около полугода</span>
<span>Var a, b, c, p :longint;
begin
WriteLn('Введите первую сторону треугольника a');
readLn(a);
WriteLn('Введите вторую сторону треугольника b');
readLn(b);
writeLn('Введите третью сторону треугольника c');
readLn(c);
p:=(a+b+c);
writeLn('Периметр треугольника равен ', p);
end.</span>
function Max(a, b, c: integer): integer;
var
m: integer;
begin
if a > b then
m := a
else
m := b;
if c > m then
m := c;
Max := m;
end;
function Min(a, b, c: integer): integer;
var
m: integer;
begin
if a < b then
m := a
else
m := b;
if c < m then
m := c;
Min := m;
end;
procedure Swap(var a, b: integer);
var
t: integer;
begin
t := a;
a := b;
b := t;
end;
var
a, b, c, t: integer;
begin
Write('Введи через пробел три числа: ');
Read(a, b, c);
Writeln('Max = ', Max(a, b, c), ', min = ', Min(a, b, c));
if b > a then
Swap(a, b);
if c > b then
begin
Swap(b, c);
if b > a then
Swap(a, b);
end;
Writeln(a, ' ', b, ' ', c);
end.