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

Question

Галька

28 августа, 11:31

+1

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