Паскаль Герон Что здесь неверно? program Geron; var a, b, c: integer; p, s: real; begin...

0 голосов

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


спросил от Начинающий (145 баллов) в категории Информатика
1 Ответ
0 голосов
ответил от Начинающий (131 баллов)
 
Лучший ответ

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

...