Паскаль

Герон

Что здесь неверно?

program Geron;

var a, b, c: integer; p, s: real;

begin

writeln ('введите стороны треугольника a, b, c') ;

readln (a, b, c) ;

p: = (a+b+c) / 2;

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

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

readln

end.

Question

Василия

11 апреля, 04:47

+5

Ответы (1)

Знаете ответ?

Фотинья · Answer 1

В конце readln не требуется, тк считывать нечего.

И чтоб не было некрасивого числа в конце допиши "writeln ('площ. треуг. s=', s:3:2) ;