Program zadacha1; var a,b,c,p,s: integer; begin readln(a,b,c); p: = (a+b+c)div 2; s: = sqrt(p(p-a)(p-b)*(p-c) ); writeln(s); end. в чем проблема?

227

280

Посмотреть ответы 2

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

vimeworldru

Информатика

4,5(79 оценок)

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