Ребят, помогите с информатикой!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.

Задать свой вопрос
Слава Давленидзе
слух у тя вк есть?
Андрюха Чудневец
нет
Данил Григоркив
а дискорд
Тимур Надинский
не, я этим всем не пользуюсь, а для чего для тебя?
Гомелев Толя
Было бы прощё потом за помошью обращяться
Дарина Прояева
обращаться*
Паша Вашеткин
пиши здесь, если не я так кто иной поможет
Роман Марьянский
оке
Катя Лобухина
спс бро
Vladislav Pilnevich
оч выручил
1 ответ

оплошности в программке поправил. Логику проверить не могу так как не знаю что конкретно обязана делать программка :)

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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт