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

Question

Информатика

Никита

2 марта, 07:48

Даны 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.