Program qq; var p,d1,d2:real; begin write('Введите значение 1 диагонали'); readln(d1); write('Введите значение 2 диагонали'); readln(d2); p:=4*sqrt((sqr(d1)/2)+(sqr(d2)/2)); write('Периметр ромба=',p); end.
Вроде так, но может быть ошибка
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
