Question

Составить программу по нахождению стороны равностороннего треугольника по периметру. Что я сделал не так?

Answer 1

Переменные с типом integer нельзя делить. Надо вместо integer в разделе var поставить real

Answer 2

У равностороннего треугольника все стороны равны, а значит Р=3а, > а=Р/3

Естественно, как указано ниже, а- вещественные число, а Р принимает только целые значения, ибо при выполнения программы компьютером возникнет ошибка.

Program Long side ;

Var a:real;

Var P:Integer;

Begin

Write ("Perimeter of the equilateral triangle") ;

Read(P)

a:=P/3;

Write("The Length Of the equilateral triangle side is equal to" a) ;

end;

end.