Сначала немножко упростим формулу 49^11 = (7^2)^11 = 7^22 т.о. общая формула получается 7^22+7^33-7^2 Будем считать сразу в 7ричной системе: число (система счисления)^степень = это 1(и столько нулей, какая степень), и это число уже в нужной системе, например: 10^0=1 (0 нулей);10^1 = 10 (1 ноль);10^2=100 (2 нуля) и т.д. это правило действует во всех системах счисления 7^22=10000000000000000000000 (22 нуля, число уже в 7ричной системе) 7^33=1000000000000000000000000000000000 (33 нуля, число уже в 7ричной системе) 7^2=100 (2 нуля, число уже в 7ричной системе) 10000000000000000000000 + 1000000000000000000000000000000000 - 100 (считать проще в столбик, сначала сложение) 1000000000000000000000000000000000 + 10000000000000000000000 = 1000000000010000000000000000000000 (вычитать тоже проще в столбик, только у старшего разряда при вычитании не 9, как в 10тичной системе, а 6) 1000000000010000000000000000000000 - 100 1000000000006666666666666666666600
Заметка 1: если пытаться считать "в лоб", то получаются числа с 27 цифрами, которые потом переводить - без соответствующего калькулятора не справиться Заметка 2: нет возможности поставить у вычислений в столбец моноширинный шрифт, чтобы получилось красиво.
Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны. Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// 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 Треугольник существует
Var ar:array[1..s] of integer; n,m,i:integer; begin writeln('N'); readln(n); writeln('M'); readln(m); writeln('Array:'); for i:=1 to s do readln(ar[i]); writeln('First array:'); for i:=1 to s do begin write(ar[i]:4); if ar[i] div n<>0 then ar[i]:=ar[i]+m; end; writeln; writeln('Final array:'); for i:=1 to s do write(ar[i]:4); end.
Пример ввода: 3 3 1 2 3 4 5 Пример вывода: First array: 1 2 3 4 5 Final array: 1 2 6 7 8
49^11 = (7^2)^11 = 7^22
т.о. общая формула получается 7^22+7^33-7^2
Будем считать сразу в 7ричной системе:
число (система счисления)^степень = это 1(и столько нулей, какая степень), и это число уже в нужной системе, например:
10^0=1 (0 нулей);10^1 = 10 (1 ноль);10^2=100 (2 нуля) и т.д.
это правило действует во всех системах счисления
7^22=10000000000000000000000 (22 нуля, число уже в 7ричной системе)
7^33=1000000000000000000000000000000000 (33 нуля, число уже в 7ричной системе)
7^2=100 (2 нуля, число уже в 7ричной системе)
10000000000000000000000 + 1000000000000000000000000000000000 - 100
(считать проще в столбик, сначала сложение)
1000000000000000000000000000000000 +
10000000000000000000000 =
1000000000010000000000000000000000
(вычитать тоже проще в столбик, только у старшего разряда при вычитании не 9, как в 10тичной системе, а 6)
1000000000010000000000000000000000 -
100
1000000000006666666666666666666600
Заметка 1: если пытаться считать "в лоб", то получаются числа с 27 цифрами, которые потом переводить - без соответствующего калькулятора не справиться
Заметка 2: нет возможности поставить у вычислений в столбец моноширинный шрифт, чтобы получилось красиво.