Регистрация
mashyanova
21.01.2022 13:28
Информатика
Есть ответ 👍

с информатикой решить 3 задачи⊕™™⊕

149
395
Посмотреть ответы 1

Ответы на вопрос:

eroly12ramblerr2
eroly12ramblerr2
4,7(82 оценок)

program GWR;

var

 p1,a,b,c,s:real;

 begin

 writeln('Введите чему равны стороны треугольников :');

 readln(a,b,c);

 p1 := (a + b + c)/ 2;

 s := sqrt(p1*(p1-a)*(p1-b)*(p1-c));

 write(s);

 end.

Популярно: Информатика