PASCAL Составьте программу, которая найдет отношение двух ВВЕДЕННЫХ ЧИСЕЛ. оно должно быть больше 1 по модулю и должно существовать, то есть нужно делить большее число на меньшее
титеря
2
08.03.2021 21:59
3 
Популярные вопросы
- Выручайте! нужно сочинение/рассказ по теме быт и нравы обломовцев...
3 - Как изменяется электроотрицательность атомов элементов в периодах...
1 - Решите примеры: а)15/17: 5 б)2/3: 7 в)12/19: 4 г)8/9: 9...
2 - Решить уравнения: 2x-15=13 7y-25=45...
1 - Сухопутные соседи россии? соседи(страны)...
3 - Определить род имен существительных и согласовать с ними прилагательные....
2 - 8галеонов и в 5раз больше каравел с сокровищами. сколько галеонов...
3 - Как ты думаешь зачем нужен алфавит? в каких случаях люди обращаются...
2 - Глаголы со значением начала действия...
1 - Напишите, , 5 изомеров гептана (с7н16)...
2
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.
Объяснение: