Паскаль Герон Что здесь неверно? 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('площадь треугол...

Question

Паскаль Герон Что здесь неверно? 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('площадь треугол...

Паскаль Герон Что здесь неверно? 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.

Гость

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

Accepted Answer

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

Паскаль Герон Что здесь неверно? 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('площадь треугол...

Паскаль Герон Что здесь неверно? 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('площадь треугол...