Ответы
Ответ дал:
1
ram Octagon;
Uses crt;
Var a, b: real;
Begin clr;
Write('Введите сторону прямоугольника A= ');
Readln(a);
Write('Введите сторону прямоугольника B= ');
Readln(b);
Writeln('Периметр прямоугольника равен ',a+a+b+b);
Readln;
End.
Объяснение:
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
8 лет назад