Задать вопрос
25 июля, 19:55

Паскаль

Герон

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

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.

+4
Ответы (1)
  1. 25 июля, 21:43
    0
    В конце readln не требуется, тк считывать нечего.

    И чтоб не было некрасивого числа в конце допиши "writeln ('площ. треуг. s=', s:3:2) ;
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Паскаль Герон Что здесь неверно? program Geron; var a, b, c: integer; p, s: real; begin writeln ('введите стороны треугольника a, b, c') ; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы