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

подождите секунду, может, получится или понравится

Трое в лодкеБелка, заяц и мышь решили переплыть через реку на лодке. На лодке раньше плавалатолько белка и она знает ее грузоподъемность W, и поэтому сомневается в том, чтолодка выдержит всех. Белка точно знает вес мыши A. Перед поездкой она узнала, чтозаяц весит в B раз больше мыши, и в то же время она знает, что она весит столько, насколько заяц весит больше мыши. Помогите белке узнать, удастся ли им переплытьреку на лодке.

ВводНа ввод подаются три целых положительных числа: W - грузоподъемность лодки (W<= 100000), A - вес мыши (A <= 10000), B - во сколько раз заяц весит больше, чеммышь (B <= 1000).ВыводВ первой строке выведите “Yes”, если звери смогут переплыть реку, иначе выведите“No”. Во второй строке выведите суммарный вес трех зверей.Ввод Вывод40 4 5 Yes4020 3 5 No30

Не надо пытаться быть "умнее всех". Комментарий служит ИСКЛЮЧИТЕЛЬНО для размещения информации, относящейся к ответу или вопросу

но все равно спасибо

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.