Даны 2 прямоугольника с разной площадью. Вывести на экран монитора площадь наименьшего.
Даны 2 прямоугольника с разной площадью. Вывести на экран монитора площадь наименьшего.
Гость
Ответ(ы) на вопрос:
Гостьvar a,b:real;
begin
read (a,b);
if (a<>b) and (a>0) and (b>0) then
begin
if (a>b) then writeln (b);
if (b>a) then writeln (a);
end
else writeln ('Неверные площади');
end.
Не нашли ответ?
Похожие вопросы