program Fractions; var a, b, c, d: LongInt; fraction1, fraction2: real; begin readln(a, b); readln(c, d); fraction1 := a / b; fraction2 := c / d; if fraction1 < fraction2 then write(-1) else if fraction1 = fraction2 then write(0) else write(1); end.
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.