Паскаль,помогите сделать,умоляюююююююююююююююююю

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

Паскаль,помогите сделать,умоляюююююююююююююююююю


image

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

только Паскаль? :(

0

Дааааааааа

0

Пожалуйста❤️❤️❤️❤️❤️

0

Вопрос жизни и смерти

0

Площадь по любой формуле считать?

0

Да

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

program per;

var  

 a,b,c,p,p2: real;  

begin

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

readln(a,b);

c :=sqrt(a*a+b*b);

writeln('Гипотенуза = ',c);

p:=(a+b+c)/2;

p2:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Площадь равна ', p2);

writeln('Периметр равен', a + b + c);

end.

(654k баллов)
0

Я с этой дистанционкой сюда каким-то образом попал...

0

А тебе сколько лет?

0

17

0

Не плохо так в коментариях общаться

0

Тут личка вроде не работает

0

Это плохо(

0

Работает если подписаться друг на друга

0

Ну я кинул подписку

0

Тут не особо удобно,может лучше вк или инста?

0

короткая ссылка вк - oxidise