Кто может помочь откомпелировать?

15.05.2007, 00:43. **Показов** 1541. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Delphi

{$APPTYPE CONSOLE}
uses sysutils;
var i,n:longint;
  s,ss:string;
begin
 write('n=');
 readln(n);
 for i:=1 to 9999 do begin
    s:=inttostr(i);
    ss:=inttostr(i+n-1);
    assignfile(output,s+'.vcf');
    rewrite(output);
    writeln('BEGIN:VCARD'#13#10+
            'UID:'#13#10+
            'VERSION:2.1'#13#10+
            'N:;'+s+';;;'#13#10+
            'TEL;CELL:'+ss+#13#10+
            'END:VCARD');
    closefile(output);
 end;
end.

15.05.2007, 03:47

тебе exe файл нужен?

Гость
	15.05.2007, 03:47	2
	тебе exe файл нужен?