Помогите! Срочно! Написание программы! - Компьютерные вопросы

Вопрос Помогите! Срочно! Написание программы!

Регистрация
8 Ноя 2012
Сообщения
85
Репутация
0
Спасибо
0
Монет
0
Помогите в написании программы! Мне надо срочно! Пожалуйста!
260684820_af0008931124fa3824ff796d9f9388b7_800.jpg
 
Регистрация
25 Дек 2013
Сообщения
76
Репутация
0
Спасибо
0
Монет
0
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.
 
Сверху Снизу