Κώδικας: Επιλογή όλων
uses sysutils;
var i,n,x:longint;
dwq:char;
a:integer;
f:text;
begin
writeln('we have 8 accounts: (1,2,3,4,5,6,7,8)');
write(timetostr(time),' Give me N: 20<N<1.000.000 ');
readln(n);
assign(f,'bankacc.in') ;
rewrite(f);
writeln(f,n);
for i:=1 to n do begin
if (i mod 3)=0 then dwq:='d';
if (i mod 3)=1 then dwq:='w';
if (i mod 3)=2 then dwq:='q';
if i<10 then dwq:='d';
a:=1+(i mod 8);
x:=10+(i mod 1000);if i<10 then x:=10000;
if dwq='d' then writeln(f,dwq,' ',a,' ',x);
if dwq='w' then writeln(f,dwq,' ',a,' ',x);
if dwq='q' then writeln(f,dwq,' ',a);
end;
close(f);
writeln(timetostr(time),' file ok');
end.
Κώδικας: Επιλογή όλων
20
d 2 10000
d 3 10000
d 4 10000
d 5 10000
d 6 10000
d 7 10000
d 8 10000
d 1 10000
d 2 10000
w 3 20
q 4
d 5 22
w 6 23
q 7
d 8 25
w 1 26
q 2
d 3 28
w 4 29
q 5