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