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

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

Задать свой вопрос
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(kgt;0 ? 'gt;' : k=0 ? '=' : 'lt;')
end.
Pasha
огромное спасибо
Смыженков Андрей
Пожалуйста
Трошейкин Константин
Для "спасибо" тут сердце, для его размера - звездочки
Гаун Злата
а иную решите?
Саша Крумкин
Не знаю. Я же ее пока не лицезрел. Я решаю только то, что желаю.
Ульяна Новодерова
подождите секунду, может, получится либо понравится
Егор Ойхерман
Не надо пробовать быть "разумнее всех". Комментарий служит Необыкновенно для размещения информации, относящейся к ответу либо вопросу
Алиса Комарничак
но все одинаково спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт