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

Question

Информатика

Екатерина

3 января, 00:31

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

+5

Ответы (1)

Знаете ответ?

Геня · Answer 1

var

a, P:integer;

begin

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

read (P) ;

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

read (a) ;

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

end.