3. даны два неравных числа x и y. большее из них заменить на сумму этих чисел, а меньшее увеличить в три раза. 4. известны периметр первого треугольника р1, координаты вершин второго x1, y1, x2, y2,x3, y3 и длины сторон третьего – а3, в3, с3. найти и вывести на экран периметр меньшего треугольника. алгоритмы ветвления

168

386

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

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

1ivel3

Информатика

4,6(72 оценок)

3. uses crt; var x,y: integer; begin read(x,y); if x> y then begin x: =x+y; y: =y*3 end else begin y: =x+y; x: =x*3 end; writeln(x,' ',y); end.4.uses crt; var p1,p2,p3,x1,y1,x2,y2,x3,y3,a3,b3,c3: real; beginwriteln('введите p1,x1,y1,x2,y2,x3,y3,a3,b3,c3: '); read(p1,x1,y1,x2,y2,x3,y3,a3,b3,c3); p2: =(sqrt( (x2-x1)*(x2-x1) + (y2-y1)*(y2-y1) ) ) + (sqrt( (x3-x2)*(x3-x2) + (y3-y2)*(y3-y2) ) ) + (sqrt( (x3-x1)*(x3-x1) + (y3-y1)*(y3-y1) ) ); p3: =a3+b3+c3; writeln(min(min(p1,p2),p3)); end.

НастяО11

Информатика

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

Program zz; var n,i,c,a: integer; begin readln(n); c: =0; while c< n do for i: =1 to n do begin a: =c+a; c: =c+1; end; a: =a+i; writeln(a); end.

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

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

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

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

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

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

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

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

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

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