Ребят, помогите с информатикой!procedure swap(var x, y: integer);var m: integer; a,
Ребят, помогите с информатикой!
procedure swap(var x, y: integer);
var
m: integer;
a, b, c: integer;
begin
m := x;
x := y;
y := m;
end;
begin
readln (a,b,c);
write('Enter a,b,c:');
if a gt; b then swap(a, b);
if b gt; c then swap(b, c);
writeln('a=', a, 'b=', b, 'c=', c);
readln;
end.
оплошности в программке поправил. Логику проверить не могу так как не знаю что конкретно обязана делать программка :)
var a, b, c : integer;
procedure swap(var x, y: integer);
var
m: integer;
a, b, c: integer;
begin
m := x;
x := y;
y := m;
end;
begin
write('Enter a,b,c: ');
readln (a,b,c);
if a gt; b then swap(a, b);
if b gt; c then swap(b, c);
writeln('a=', a, ' b=', b, ' c=', c);
readln;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.