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.

в чем проблема?

Question

Информатика

Юрий

2 ноября, 09:26

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.

в чем проблема?

+5

Ответы (1)

Знаете ответ на вопрос?

Анночка · Answer 1

Проблема в описании переменной 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.

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

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.

в чем проблема?