Для того чтобы узнать какое число стоит на 301 месте введем следующие обозначения: А = 0, Е = 1, У = 2. Тогда получим: 1) 000000, (0) 2) 000001, (1) 3) 000002, (2) 4) 000010, (3) ... 301) ... (300) а это получаются числа записанные в троичной системе счисления. На 301 месте будет стоять число равное в десятичной системе 300 Переведем число 300 из десятичной системы в троичную, получим: 300 : 3 = 100 - остаток 0 100 : 3 = 33 - остаток 1 33 : 3 = 11 - остаток 0 11 : 3 = 3 - остаток 2 3 : 3 = 1 - остаток 0 1 : 3 = 0 - остаток 1 т.е. получаем число 102010 в троичной системе счисления. Подставив обратно наши буквы получим ответ: ЕАУАУА.
Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны. Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 type Point=record x,y:real end;
procedure GetPoint(c:char;var M:Point); begin Write('Введите координаты точки ',c,': '); Read(M.x,M.y) end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin var A,B,C:Point; GetPoint('A',A); GetPoint('B',B); GetPoint('C',C); var ab:=Dist(A,B); var bc:=Dist(B,C); var ac:=Dist(A,C); if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then Writeln('Треугольник существует') else Writeln('Треугольник не существует') end.
Тестовое решение: Введите координаты точки A: -6.9 -5.3 Введите координаты точки B: 0 11.4 Введите координаты точки C: 9 3 Треугольник существует
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку