|
Очень быстро: 2^20 = 1048576
Поправка, если учитывать разложение 1000000 = 11110100001001000000
то получится следующий код из ~20 строк
Delphi:
N>var
N> s: string;
N>begin
N> s := 'Welcome'#10;
N> s := s + s;
N> s := s + s;
N> s := s + s;
N> s := s + s;
N> s := s + s;
N> s := s + s; write(s);
N> s := s + s;
N> s := s + s;
N> s := s + s; write(s);
N> s := s + s;
N> s := s + s;
N> s := s + s;
N> s := s + s;
N> s := s + s; write(s);
N> s := s + s;
N> s := s + s; write(s);
N> s := s + s; write(s);
N> s := s + s; write(s);
N> s := s + s; write(s);
N>end.
N>
В итоге ровно 1000000 строк Welcome
все просто гениално.
если человек не понимает то лучше сказат мне ето не нравитса.
|