Question

ввести с клавиатуры 2 целых числа ,вывести больше из них ,написать первое это число или второе (написать на паскале)помогите пожалуйста

Answer 1

Var a, b: integer;
begin
    read(a); read(b);
    if (a > b) then
        writeln('Первое число больше второго')
    else
    begin
        if (a < b) then
            writeln('Второе число больше первого')
        else
            writeln('Числа равны');
    end;
end.

Answer 2

Конечно, я помогу вам написать программу на Pascal для ввода двух целых чисел с клавиатуры и вывода большего из них с указанием, какое из чисел является большим. Вот код программы:

pascalCopy code
program CompareTwoNumbers;

var
  num1, num2: integer;

begin
  writeln('Введите первое целое число:');
  readln(num1);
  
  writeln('Введите второе целое число:');
  readln(num2);
  
  if num1 > num2 then
    writeln('Первое число ', num1, ' больше второго числа ', num2)
  else if num2 > num1 then
    writeln('Второе число ', num2, ' больше первого числа ', num1)
  else
    writeln('Числа равны.');
end.

Скопируйте этот код в среду разработки Pascal (например, Free Pascal) и запустите программу. После запуска она попросит вас ввести два целых числа, а затем выведет на экран большее из них и информацию о том, какое число является большим.