9класс
Страница 29-30 параграф 1.2 вопрос 6, ГДЗ по информатике за 9 класс к учебнику Босовой за 2023 год Просвещение
Номер 6. Напишите программу обмена значений переменных a, b, c в порядке возрастания, т. е. так, чтобы a < b < c. Используйте процедуру swap.
procedure swap(var x, y: integer);
var m: integer;
begin
m:=x;
x:=y;
y:=m
end;
Исходные данные вводятся с клавиатуры.
procedure swap(var x, y: integer);
var m: integer;
begin
m:=x;
x:=y;
y:=m
end;
Исходные данные вводятся с клавиатуры.
program Z_1_2_6;
var
a, b, c: integer;
procedure swap(var x, y: integer);
var
m: integer;
begin
m := x;
x := y;
y := m
end;
begin
write('ВВеди a,b,c >>');
readln(a, b, c);
if a > b then swap(a, b);
if a > c then swap(a, c);
if b > c then swap(b, c);
writeln(a, ' ', b, ' ', c)
end.
