
05.04.2012, 18:43
|
|
Постоянный
Регистрация: 27.07.2011
Сообщений: 499
Провел на форуме: 179355
Репутация:
53
|
|
Сообщение от Ereee
Program xren;
var uin,x:longint;
a:text;
begin
writeln('Program by Ereee
');
assign(a,'a.txt');
rewrite(a);
uin:=640000000;
for i:=0 to 641000000 do
begin
uin:=uin+i;
writeln(a,uin);
end;
end.
извращенец вауще
|
|
|