Напишите программу перестановки значений переменных в порядке возрастания. Используйте процедуру swap

linashilova00 linashilova00    1   17.04.2019 06:30    8

Ответы
000конфета000 000конфета000  17.04.2019 06:30
program z5;
procedure swap (var x,y: integer);
var m: integer;
begin
m:=x;
x:=y;
y:=m
end;

var a, b, c: integer;
BEGIN
Writeln('Введите значения 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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы