Question

Решать на Pascal ABC.net версия 3.2 сборка 1417. Написать программу, которая выполняет сравнение многоразрядных десятичных ЦЕЛЫХ чисел. То-есть вывести > если первое число больше второго; вывести < если второе число больше первого; вывести = если числа равны.

Answer 1

Var a,b:uint64;
Begin
Write('Введите два целых числа: ');ReadLn(a,b);
if a > b then Write(a,' > ',b)
else if a < b then Write(a,' < ',b)
     else Write(a,' = ',b)
End.

Answer 2

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017

begin
  var a:=ReadlnString('1-е число:').ToBigInteger;
  var b:=ReadlnString('2-е число:').ToBigInteger;
  if a>b then Writeln('>')
  else
    if a=b then Writeln('=')
    else Writeln('<')
end.

Пример
1-е число: 45685695606778795409839437392759354
2-е число: 8643603434233452532223423423525
>

Замечание: разрядность чисел - произвольная.

Answer 3

Конечно, вот пример программы на Pascal ABC.NET (версия 3.2, сборка 1417), которая выполняет сравнение многоразрядных десятичных целых чисел:

pascalCopy code
program CompareNumbers;
var
  num1, num2: string;

function CompareBigIntegers(a, b: string): string;
var
  lenA, lenB: integer;
begin
  lenA := Length(a);
  lenB := Length(b);

  if lenA > lenB then
    Result := '>'
  else if lenA < lenB then
    Result := '<'
  else
  begin
    if a > b then
      Result := '>'
    else if a < b then
      Result := '<'
    else
      Result := '=';
  end;
end;

begin
  Write('Введите первое число: ');
  Readln(num1);
  
  Write('Введите второе число: ');
  Readln(num2);
  
  writeln('Результат сравнения: ', CompareBigIntegers(num1, num2));
end.

Программа запрашивает два многоразрядных десятичных целых числа и выводит результат сравнения, используя функцию CompareBigIntegers. Вы можете скопировать этот код в среду Pascal ABC.NET и выполнить программу.