ДАЮ 30 БАЛЛОВ Выдает такую ошибку , в чем проблема?? source.pas(13,11) Fatal: Syntax...

Question

ДАЮ 30 БАЛЛОВ Выдает такую ошибку , в чем проблема?? source.pas(13,11) Fatal: Syntax error, ")" expected but "(" found Program P1; var a, b, c:integer; s, p:real; Begin write('введите координату a='); readln(a); write('введите координату b='); readln(b); write('введите координату c='); readln(c); P :=(a+b+c)/2; writeln('периметр треугольника =',P:2:2); s :=sqrt(p(p-a)*(p-b)*(p-c)); writeln('площадь треугольника =',s:2:2); end.

Comments

sqrt(p(p-a)*(p-b)*(p-c)) найди ошибку за 3 подхода

---

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

---

вам пишет , что ошибка в 13 строке в 11 позиции, у вас вероятно знак умножения пропущен

Answer 1

Опять двадцать пять.

program P1;

var

a, b, c, p: integer;

pp, s: real;

begin

write('Введите сторону a = ');

readln(a);

write('Введите сторону b = ');

readln(b);

write('Введите сторону c = ');

readln(c);

p := a + b + c;

writeln('Периметр треугольника P = ', p);

pp := p / 2;

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

writeln('Площадь треугольника S = ', s);

end.

Конкретно в этом примере не поставили умножение после полупериметра(!) в корне.