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.

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.

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