Закодировать арифметическим методом слово "кукушка"

varn,i: integer; x0,y0,x1,y1,x2,y2,s: real; begin readln(n); s: =0; readln(x0,y0); x1: =x0; y1: =y0; for i: =2 to n do begin readln(x2,y2); s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); x1: =x2; y1: =y2; end; x2: =x0; y2: =y0; s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); writeln(s: 10: 2); end.

смотря какую.у меня друг делал презинтацию на конкурс совёно он распрашивал всех на каком море кому нравиться потом сделал анкету типо :

на красном море допустим 45%

на чёрном море 15%

ну и т.д. 

пусть наше число записывается в виде abc. тогда в системе счисления с основанием x числа abc и abcabc выражаются следующим образом:

abc = ax^2 + bx +c (1)

abcabc = ax^5 + bx^4 + cx^3 + ax^2 + bx + c = x^3(ax^2 + bx + c) + (ax^2 + bx + c) = (x^3 + 1)(ax^2 + bx + c) (2)

из условия следует, что (2) должно равняться (1), умноженному на 4097:

(x^3 + 1)(ax^2 + bx + c) = 4097*(ax^2 + bx +c) => х^3 = 4096 => х = 16

ответ: основание системы счисления равно 16 (т.е. это шестнадцатиричная система счисления).

const  n = 20;   var  a : array [1..n] of integer;   pos, sum, znak : integer;   begin  write('массив: ');   randomize;   for pos : = 1 to n do  begin  a[pos] : = random(101) - 50;   write(a[pos]: 4);   end;   writeln;   for pos : = 1 to n div 2 do sum : = sum + a[pos] -a[n div 2 + pos];   writeln('разность между суммой 1-й половины и 2-й = ', sum);   end.