Даны 2 прямоугольника с разной площадью. Вывести на экран монитора площадь наименьшего.

Question

Информатика

Лидуня

15 июня, 19:13

Даны 2 прямоугольника с разной площадью. Вывести на экран монитора площадь наименьшего.

+5

Ответы (1)

Знаете ответ?

Христофор · Answer 1

Var a, b:real;

begin

read (a, b) ;

if (ab) and (a>0) and (b>0) then

begin

if (a>b) then writeln (b) ;

if (b>a) then writeln (a) ;

end

else writeln ('Неверные площади') ;

end.