Даны основание и высота равнобедренного треугольника. вычислить площадь и длины боковых...

0 голосов
38 просмотров

Даны основание и высота равнобедренного треугольника. вычислить площадь и длины боковых сторон этого треугольника . В ПАСКАЛЕ ABC


Информатика (29 баллов) | 38 просмотров
0

Добрый день!Значения высоты и основания вводятся с клавиатуры?

0

да

0

Дайте значения, возможно, у Вас даны входные и выходные данные.

0

там нет данных надо просто составить программу и взять вместо занчений буквы

0

Буквы?

0

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

0

ну вы скиньте как вы решили

0

Ну что?

0

спасибо) всё получилось)

Дан 1 ответ
0 голосов

Var a,b,h,s: real;
begin
write ('Введите длину основания: '); read (b);
write ('Введите длину высоты: '); read (h);
s:=1/2*b*h;
a:=sqrt(sqr(b)/2);
writeln ('Площадь = ',s);
writeln ('Боковые стороны равны = ',a);
end.

(14.4k баллов)