Программист составил программу нахождения площади ипериметра треугольника однако при запуске она выдает ошибкyнайдите её Program SP;
var S, P, r, a, b, c: integer;
begin
writeln ( 'привет, давай найдем площадь и периметр треугольника' );
a:= 15.67;
b:= 3.5;
c:= 9.34;
P:= a+b+c ;
r:= (a+b+c)/2;
S:=sqrt(r*(r-a)*(r-b)*(r-c)) ;
writeln ( 'периметр треугольника равен ',P);
writeln ( 'Площадь треугольника равна ',S);
writeln ( ' Всего доброго!' );
end.
Программист составил программу нахождения площади ипериметра треугольника однако при запуске она выдает ошибкyнайдите её Program SP;
var S, P, r, a, b, c: integer;
begin
writeln ( 'привет, давай найдем площадь и периметр треугольника' );
a:= 15.67;
b:= 3.5;
c:= 9.34;
P:= a+b+c ;
r:= (a+b+c)/2;
S:=sqrt(r*(r-a)*(r-b)*(r-c)) ;
writeln ( 'периметр треугольника равен ',P);
writeln ( 'Площадь треугольника равна ',S);
writeln ( ' Всего доброго!' );
end.
var S, P, r, a, b, c: integer;
begin
writeln ( 'привет, давай найдем площадь и периметр треугольника' );
a:= 15.67;
b:= 3.5;
c:= 9.34;
P:= a+b+c ;
r:= (a+b+c)/2;
S:=sqrt(r*(r-a)*(r-b)*(r-c)) ;
writeln ( 'периметр треугольника равен ',P);
writeln ( 'Площадь треугольника равна ',S);
writeln ( ' Всего доброго!' );
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Неправильно задан тип integer:
var S, P, r, a, b, c: integer;