Составить программу на паскале. даны стороны двух треугольников. найти сумму их периметров и сумму площадей. определить процедуру для расчета периметра и площади треугольника по его сторонам

146

289

Посмотреть ответы 3

Ответы на вопрос:

sasha60503

Информатика

4,4(59 оценок)

//pascal abc.net 3.1 сборка 1219 procedure perandplo(var s,p: real; a,b,c: real); var pp: real; begin p: =a+b+c; pp: =p/2; s: =sqrt(pp*(pp-a)*(pp-b)*(pp-c)); end; var a1,b1,c1,p1,s1,a2,b2,c2,p2,s2: real; begin writeln('введите длины сторон первого треугольника: '); readln(a1,b1,c1); writeln('введите длины сторон второго треугольника: '); readln(a2,b2,c2); perandplo(s1,p1,a1,b1,c1); perandplo(s2,p2,a2,b2,c2); writeln('сумма периметров: ',(p1+p2)); writeln('сумма площадей: ',(s1+s2)); end. пример ввода: 1 2 3 4 5 6 пример вывода: сумма периметров: 21 сумма площадей: 9.92156741649221

Dec3mber

Информатика

4,4(12 оценок)

Var z,x,c: real; procedure perimetr(a,b,c: real); var p: real; begin p: =a+b+c; writeln('p=',p); end; procedure ploshad(a,b,c: real); var s,p: real; begin p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('s=',s); end; begin writeln('write first data: '); readln(z,x,c); perimetr(z,x,c); ploshad(z,x,c); writeln('write second data: '); readln(z,x,c); perimetr(z,x,c); ploshad(z,x,c); readln; end.

kjhfdklffsjsw

Информатика

4,7(43 оценок)

#include < iostream> using namespace std; int main() { int x; cin > > x; if((x*x - 4*x + 5) % 4 == 0) cout < < "yes" < < endl; else cout < < "no" < < endl; }

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.