Var a,b,c,p,S:real;
begin
writeln('Введите A: ');readln(a);
writeln('Введите B: ');readln(b);
writeln('Введите C: ');readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) and (b>0) and (c>0) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ',s)
end
else
writeln('Стороны треугольникавведены неверно!');
end.
1. Ответ представлен в скриншоте
2. Напечатанное значение в результате программы -40
3 Напечатанное значение в результате программы -24
Да хренас два вам ее кто - нибудь решит! Мы уже второй день решаем вашу задачу. Мой кот умер от голода, потому что я задумался над этой задачей слишком сильно. Меня откачивали 16 часов, после того как я упал в обморок из за голода, ибо я тоже не кушал с того момента как услышал условие этой задачи. Даже когда я проснулся в больнице, я все равно начал рассказывать соседям по палате об этой задаче. Решения нет. желания нет. Боли тоже нет.