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