В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия

Даны три стороны одного и три стороны другого треугольника. эти треугольники равновеликие, т.е. имеют равные площади. решить в системе паскаль

Показать ответ
Ответ:
vicroriaalakoz3
vicroriaalakoz3
02.07.2020 16:48
Var   a, b, c, p,s,s1: real;
begin  
write('Введите три стороны треугольника: ');   
read(a, b, c);  
p := (a + b + c) / 2;  
s := sqrt(p * (p - a) * (p - b) * (p - c));  
write('Введите три стороны другого треугольника: ');   
read(a, b ,c);  
p := (a + b + c) / 2;  
s1 := sqrt(p * (p - a) * (p - b) * (p - c));  
write('Треугольники равновеликие -- ', s = s1)  
end.
0,0(0 оценок)
Ответ:
12312312712
12312312712
02.07.2020 16:48
Program D1KPxx13;
uses crt;
var
a1,a2,a3,b1,b2,b3,s1,s2,p1,p2:real;
begin
readln(a1,a2,a3);
p1:=(a1+a2+a3)/2;
s1:=p1*(p1-a1)*(p1-a2)*(p1-a3);
readln(b1,b2,b3);
p2:=(b1+b2+b3)/2;
s2:=p2*(p2-b1)*(p2-b2)*(p2-b3);
if s1=s2 then
writeln('ravnovelikie')
else writeln(' ne ravnovelikie');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота