profile
Опубликовано 4 года назад по предмету Информатика от HugoStiglitz

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

  1. Ответ
    Ответ дан Аккаунт удален
    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.