PASCAL Составьте программу, которая найдет отношение двух ВВЕДЕННЫХ ЧИСЕЛ. оно должно быть больше 1 по модулю и должно существовать, то есть нужно делить большее число на меньшее

Информатика

Ответить

Ответы

isinyakin

09.08.2020

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.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

PASCAL Составьте программу, которая найдет отношение двух ВВЕДЕННЫХ ЧИСЕЛ. оно должно быть больше 1 по модулю и должно существовать, то есть нужно делить большее число на меньшее