Поскольку алгоритма нет, имею право ввести свой:)
procedure swap(var a, b: real);
var t: real;
begin
t := a;
a := b;
b := t;
end;
var a, b, c: real;
begin
readln(a, b, c);
if (a > b) then swap(a, b);
if (b > c) then swap(b, c);
if (a > b) then swap(a, b);
writeln(a, ' ', b, ' ', c);
<span>end.
В ответе будет
а = 10
b = 18
с = 26 =)</span>
2 и 3
1 точно не то. в двоичной системе 0 и 1 используется
4 ну и русский язык.... он не для всех
Program n1;
var a,sum: integer;
begin
write('введите число: ');
readln(a);
sum:=(a mod 10)+(a div 10);
writeln('сумма цифр числа ',a,' равна ',sum);
end.