Как сократить время работы программы

[dimon_snake]

Сообщение от BDA

var
  fi, fo: text;
  i, n, p: longint;
  s: string;

begin
  Assign(fi, 'sequence.in');
  Assign(fo, 'sequence.out');
  Reset(fi);
  Rewrite(fo);
  Read(fi, s);
  n := length(s);
  p := 1;
  for i := 1 to n do
    p := p * (ord(s[i]) - ord('0') + 1);
  Write(fo, p);
  Close(fo);
end.

Но longint не хватит для 10^100, так что придется реализовывать длинную арифметику.

Да, спасибо, работает, но не полностью. С более большими числами идет неправильный ответ, но вплоть до двадцатого теста нет проблем с ошибками, типа долгого выполнения программы или не влезания.
но с большими числами что-то не то.

[dimon_snake]

Сообщение от min@y™

дык и я тебе про тож втираю.
смотри, чо нашёл.

Что это? Открыл паскалем, какая-то длинная программа в 450 строк.

[Аватар]

С более большими числами идет неправильный ответ

дык написали же - целочисленную арифметику нужно для подсчета реализовать. Результат не уместится ни в longint, ни в int64

[dimon_snake]

Сообщение от Аватар

дык написали же - целочисленную арифметику нужно для подсчета реализовать. Результат не уместится ни в longint, ни в int64

И как это сделать? Не очень понимаю.

[Аватар]

Погугли длинная арифметика паскаль. Тебе там умножение придется использовать

[dimon_snake]

Сообщение от Аватар

Погугли длинная арифметика паскаль. Тебе там умножение придется использовать

Так, скорее всего, должно получится. Только связать не могу.
Вот, что получилось:

var
fi,fo:text;
i,n,x:longint;
y:longint;
s:string;
a:array[0..105] of integer;
procedure LongArif(b:integer;s1:string);
var i,c:integer;
s2:string;
begin
c:=0;
a[0]:=length(s);
for i:=1 to a[0] do a[a[0]-i+1]:=ord(s1[i])-48;
for i:=1 to a[0] do
 begin
   a[i]:=c+a[i]*b;
   c:=a[i] div 10;
   a[i]:=a[i] mod 10;
 end;
while c>0 do
  begin
    a[0]:=a[0]+1;
    a[a[0]]:=c mod 10;
    c:=c div 10;
    for i:=a[0] downto 1 do 
      begin
        s2:='';
        Str(a[i],s2);
        s:=s+s2;
        Inc(x);
      end;
  end;
end;
begin
Assign(fi,'sequence.in');
Assign(fo,'sequence.out');
Reset(fi);
Rewrite(fo);
Read(fi,s);
n:=length(s);
y:=1;
for i:=1 to n do
  begin
    LongArif(y,s);
    if i = n then
    for x:=n downto 1 do Write(fo,a[x]);
  end;
Write(fo,y);
Close(fo);
end.

Но что-то явно не так.

[min@y™]

Погугли длинная арифметика паскаль. Тебе там умножение придется использовать

Да нагуглил я ему уже всё, да прицепил к посту #30.
1хрен, не понимает.

Что это? Открыл паскалем, какая-то длинная программа в 450 строк.

[Аватар]

А BDA молодец, придумал формулу. Интересно, методом тыка или обоснование и хоть какое-то доказательство есть? Жаль плюсануть не могу, движок запрещает

[BDA]

Аватар, сначала решил написать систему уравнений для N:
N=a
a1+a2=a
a1+a2=a
Получилось вариантов выбора a+1.

N=ab
a1b1+a2b2=ab
a1+b1+a2+b2=a+b
Переписал первое уравнение в виде 10a1+b1+10a2+b2=10a+b, вычел второе, сократил на 9 и получил a1+a2=a. Вычел из второго получившееся.
a1+a2=a
b1+b2=b
Теперь вариантов (a+1)*(b+1).

Для N=abc так сделать не смог, но предположив закономерность, проверил её уже сравнением с полным перебором

[dimon_snake]

Народ, можете помочь слепить из куска кода BDA с формулой, слепить с длинной арифметикой циклом.
То есть

for i:=1 to n do begin
y:=(ord(s[i])-ord('0')+1);
LongArif(y,s);
if i=n then for x:=n downto 1 to Write(fo,s[x]);
end;

При этом процедура LongArif :

procedure LongArif(b:integer;s1:string);
var i,c:integer;
s2:string;
begin
c:=0;
a[0]:=length(s1);
for i:=1 to a[0] do
a[a[0]-i+1]:=ord(s1[i])-48;
for i:=1 to a[0] do begin
a[i]:=c_a[i]*b;
c:=a[i]div 10;
a[i]:=a[i] mod 10;
end;
while c>0 do 
begin
a[0]:=a[o]+1;
a[a[0]]:=c mod 10;
c:=c div 10;
s:='';
for i:=a[0] downto 1 do begin
s2:='';
Str(a[i],s2);\\превращаем каждый символ полученного числа в строку
s:=s+s2;\\Добавляем к основной строке, пока не заполним ее
end;
end;
end;