Question

Сравнение дробей
Напишите программу, позволяющую сравнить две обыкновенные дроби.
Ввод
На ввод подается четыре целых положительных числа (все числа не превышают 10
4
):
в первой строке числитель и знаменатель первой дроби, во второй строке числитель и
знаменатель второй дроби.
Вывод
Если первая дробь меньше второй, выведите ‘<’, если дроби равны, выведите ‘=’, если
первая дробь больше второй,выведите ‘>’.
Ввод Вывод
1 2
3 4
<
17 34
1 2
=
решить на ПАСКАЛЬ

Answer 1

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadlnInteger2; var (c,d):=ReadlnInteger2;
  var k:=Sign(a*d-b*c);
  Writeln(k>0 ? '>' : k=0 ? '=' : '<')
end.