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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
