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

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

Показать ответ
Ответ:
jjjustangel1
jjjustangel1
28.06.2020 16:19
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;
begin
writeln('Введите 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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота