PASCAL Составьте программу, которая найдет отношение - вопрос №17313746 от samininav1 25.03.2020 15:00

Question

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

samininav1 · Answer

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.Объяснение:...