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. в чем проблема?
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.
в чем проблема?
Гость
Ответ(ы) на вопрос:
ГостьПроблема в описании переменной 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.
Не нашли ответ?
Похожие вопросы