Var a,b:integer; begin write('Введите сторону a=');read(a); write('Введите сторону b=');read(b); writeln('Площадь прямоугольника=',a*b); writeln('Периметр прямоугольника=',2*(a+b)); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
