Составить программу нахождения боковой стороны равнобедренного треугольника, если основание и периметр вводятся с клавиатуры.

Question

Информатика

Тимофей

28 июля, 16:33

Составить программу нахождения боковой стороны равнобедренного треугольника, если основание и периметр вводятся с клавиатуры.

+1

Ответы (1)

Знаете ответ на вопрос?

Эмуня · Answer 1

var

a, P:integer;

begin

writeln ('Введите периметр равнобедренного треугольника: ') ;

read (P) ;

writeln ('Введите основание равнобедренного треугольника: ') ;

read (a) ;

writeln ('Боковая сторона равнобедренного треугольника: ', (P-a) / 2) ;

end.