Предмет: Информатика,
автор: sofiyamedyanzeva
PASCAL Составьте программу, которая найдет отношение двух ВВЕДЕННЫХ ЧИСЕЛ. оно должно быть больше 1 по модулю и должно существовать, то есть нужно делить большее число на меньшее
Ответы
Автор ответа:
0
var x, y, res: real;
label back;
begin
back:
Readln(x); Readln(y);
if x > y then res := x / y else res := y / x;
if res < 1 then goto back;
Writeln(res);
end.
Объяснение:
Интересные вопросы
Предмет: Русский язык,
автор: leramimimimi
Предмет: Технология,
автор: liza164
Предмет: Английский язык,
автор: agaevasm
Предмет: Алгебра,
автор: IIeIIo4ka
Предмет: Математика,
автор: IIIkOlbNiK0000000