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

Question

Вовуша

14 декабря, 05:41

+2

Ответы (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.