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

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal:

program CompareFractions;
var
num1, den1, num2, den2: integer;
fraction1, fraction2: real;
begin
// ввод числителя и знаменателя первой дроби
read(num1, den1);
// ввод числителя и знаменателя второй дроби
read(num2, den2);
// вычисление числителя и знаменателя для каждой дроби
fraction1 := num1 / den1;
fraction2 := num2 / den2;
// сравнение дробей и вывод результата
if fraction1 < fraction2 then
writeln('<')
else if fraction1 = fraction2 then
writeln('=')
else
writeln('>');
end.

Пример ввода и вывода:

Ввод
1 2
3 4
Вывод
<