Задаются 2 числа а и б найти результат отношение большего из них на меньшее составить алгоритм

Question

Меркурий

21 февраля, 09:38

+4

Ответы (1)

Знаете ответ на вопрос?

Викентия · Answer 1

Program z1;

var a, b, c:real;

begin

writeln ('введите 2 числа') ;

readln (a, b) ;

if (a>b) then c:=a/b

else c:=b/a;

writeln (c) ;

end.