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