| Код |
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,integer_asm;
var i: LongInt;
a,b,c: string;
begin
{ TODO -oUser -cConsole Main : Insert code here }
a:='1';
b:='1';
c:='87178291200';
for i:=0 to 139 do
begin
a:=Mul(a,b);
b:=Add(b,'1');
///////////////////
// Writeln(a);
// Writeln(b);
// Writeln(Length(a));
///////////////////
if (StrComp(PChar(a),PChar(c))=0) then Break;
end;
if (i<140) then Writeln(i+1);
//s3:=Add(s1,s2);
// Writeln(a);
// Writeln(b);
// Writeln(c);
Readln;
end.
|
правда не до 300 символов а до 140 |
)