3. Даны два неравных числа…

Question

3. Даны два неравных числа X и Y. Большее из них заменить на сумму этих чисел, а меньшее увеличить в трираза.4. Известны периметр первого треугольника Р1, координаты вершин второго x1, y1, x2, y2,x3, y3 и длины сторон третьего – а 3, в 3, с 3. Найти и вывести на экран периметр меньшего треугольника. Алгоритмы ветвления

Answer 1

51

nechik007

19 февраля 2023

3.uses crt; var x,y: integer; beginread (x,y); if x>y thenbeginx: =x+y; y: =y*3endelsebeginy: =x+y; x: =x*3end; 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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: