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

Question

Информатика

Вассиан

13 октября, 01:38

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

+3

Ответы (1)

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

Гемелла · Answer 1

var

a, P:integer;

begin

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

read (P) ;

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

read (a) ;

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

end.