Var a:integer;S,p:real;beginWrite('Введите a сторону треугольника'); Readln(a);P:=3*a; Writeln('Периметр=',P);S:=(sqr(a)*sqrt(3))/4; Writeln('Площадь', S);Readln;end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
