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