Question

Помогите пожалуйста задача по информатике if8 паскаль даны два числа.Вывести в начале большее а затем меньшее.

Answer 1

Var a,b:real;
begin
readln(a,b);
if a>b then
writeln(a,' ',b);
if b>a then
writeln(b,' ',a);
end.

Answer 2

Конечно! Вот пример решения задачи на языке Паскаль:

pascalCopy code
program CompareNumbers;
var
  num1, num2: integer;
begin
  writeln('Введите первое число: ');
  readln(num1);
  writeln('Введите второе число: ');
  readln(num2);
  
  if num1 > num2 then
  begin
    writeln('Большее число: ', num1);
    writeln('Меньшее число: ', num2);
  end
  else if num2 > num1 then
  begin
    writeln('Большее число: ', num2);
    writeln('Меньшее число: ', num1);
  end
  else
    writeln('Числа равны.');
  
  readln;
end.

В этом примере программа запрашивает два числа у пользователя и затем сравнивает их. Если первое число больше второго, то оно выводится первым, а второе число - вторым. Если второе число больше первого, то выводится оно вначале, а первое число - вторым. Если числа равны, программа выводит сообщение об этом.

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