Question

СРОЧНО !НАПИШИТЕ ПРОГРАММУ НА ПАСКАЛЕ ВВОДА С КЛАВИАТУРЫ ДВУХ ЧИСЕЛ И ВЫВОДА НА ЭКРАН ЧИСЛА , ЧЕЙ КВАДРАТ БОЛЬШЕ

Answer 1

Var
   a,b:longint;
begin
   readln(a,b);
   if sqr(a)>sqr(b) then writeln(a)
   else
     if sqr(a)<sqr(b) then writeln(b)
     else writeln('Квадраты чисел равны')
end.

Answer 2

Программа на Pascal для ввода двух чисел с клавиатуры и вывода на экран числа, чей квадрат больше

program SquareComparison;

var
  num1, num2, square: integer;

begin
  writeln('Введите первое число: ');
  readln(num1);
  
  writeln('Введите второе число: ');
  readln(num2);
  
  square := num1 * num1;
  
  if square > (num2 * num2) then
    writeln('Квадрат первого числа больше квадрата второго числа.')
  else if square < (num2 * num2) then
    writeln('Квадрат второго числа больше квадрата первого числа.')
  else
    writeln('Квадраты чисел равны.');
  
  readln;
end.

Эта программа на Pascal позволяет пользователю ввести два числа с клавиатуры и выводит на экран сообщение о том, чей квадрат больше. Программа сравнивает квадрат первого числа с квадратом второго числа и выводит соответствующее сообщение.

Пример работы программы:

Введите первое число:
5
Введите второе число:
7
Квадрат второго числа больше квадрата первого числа.

Введите первое число:
3
Введите второе число:
2
Квадрат первого числа больше квадрата второго числа.

Введите первое число:
4
Введите второе число:
2
Квадраты чисел равны.

Примечание: Данная программа написана на языке Pascal и может быть выполнена в среде разработки, поддерживающей этот язык, например, Lazarus