Предмет: Информатика,
автор: Аноним
Паскаль программы.Расположите числа a,b,c integer в порядке возрастания.помогите мне, пожалуйста!!!
Ответы
Автор ответа:
0
var
a, b, c : integer;
procedure swap (var a, b : integer);
var k : integer;
begin
k := a;
a := b;
b := k;
end;
begin
read (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.
Автор ответа:
0
Var
a. b. c. integer
вот так то
Интересные вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Русский язык,
автор: skek11377
Предмет: Қазақ тiлi,
автор: albi262008
Предмет: Математика,
автор: 01121977