Правильный подмногоугольник
ограничение по времени на тест2 секунды
ограничение по памяти на тест512 мебибайт
вводстандартный ввод
выводстандартный вывод
задан правильный n-угольник. требуется выбрать наименьшее количество его вершин, которые также образуют правильный многоугольник.

входные данные
входные данные содержат одно целое число n (3≤n≤1012).

выходные данные
выведите одно число — наименьшее количество вершин заданного многоугольника, которые образуют правильный многоугольник.

а)сумм(a5: b7)

б)срзнач(c4: c7)

51 в десятой сс=110011 в двоичной сс

85 в дес сс=1010101 в двоичной сс

110011+1010101=10001000

110011-1010101=1111111111011110

вроде так

если ответ нужен в десятичной сс, то просто переведи

1) 6 (худший вариант - 5+1)

2) 4 (худший вариант - 3+1)

3) 7 (худший вариант - 5+2)

4) 5 (худший вариант - 3+2)

var x1,x2,x3,s1,s2,s3: integer;

function sumofnumber(num: integer): integer;

var s: string;

i: integer;

begin

  s: =str(num);

  for i: = 1 to length(s) do

        sumofnumber: = sumofnumber+int(s[i]);

end;

begin

  read(x1,x2,x3);

  s1: =sumofnumber(x1);

  s2: =sumofnumber(x2);

  s3: =sumofnumber(x3);

  if s1> s2 and s1> s3 then writeln(x1);

  if s2> s1 and s2> s3 then writeln(x2);

  if s3> s2 and s3> s1 then writeln(x3);

end.

в правильности написания функции типов не уверенна.