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

Написать программу в Pascal (полностью). С клавиатуры вводятся стороны двух прямоугольников. Определить площадь какого прямоугольника больше.

  1. Ответ
    Ответ дан ИнформатикБУ
    var
    a, b, c, d: integer;
    begin
    writeln('Введите стороны 1 прямоугольника: ');
    readln(a, b);
    writeln('Введите стороны 2 прямоугольника: ');
    readln(c, d);
    if a*b > c*d then
    writeln('Площадь 1-го больше');
    if a*b = c*d then
    writeln('Площади равны');
    if a*b < c*d then
    writeln('Площадь 2-го больше');
    end.
    1. Ответ
      Ответ дан Аккаунт удален
      Братан, спасибо
Самые новые вопросы