Question

ПОМОГИТЕ ПРОШУ! Даны два целых числа. Написать программу, которая выводит эти числа в порядке убывания. Для решения используйте составной оператор IF <условие> then begin <операторы> end; Пример работы программы: Ввод: А=5, В=13 Вывод: 13, 5

Answer 1

Ответ:

var A,B: integer;

begin

readln(A,B);

if (A>B) then begin

write(A,' ');

write(B);

end;

if (B>=A) then begin

write(B,' ');

write(A);

end;

end.

Answer 2

Конечно, я могу помочь вам с этой задачей. Вот пример программы на языке Pascal, которая решает данную задачу:

pascalCopy code
program SortDescending;
var
  A, B: integer;
begin
  // Ввод чисел A и B
  write('Введите число A: ');
  readln(A);
  write('Введите число B: ');
  readln(B);
  
  // Сортировка чисел в порядке убывания
  if A >= B then
    writeln(A, ', ', B)
  else
    writeln(B, ', ', A);
    
  readln;
end.

Программа запрашивает у пользователя два числа (A и B) и затем сортирует их в порядке убывания. Если число A больше или равно числу B, то они выводятся в порядке A, B. В противном случае, числа B и A выводятся в порядке B, A.

Надеюсь, это поможет! Если у вас возникнут ещё вопросы, пожалуйста, дайте мне знать.