Cod sursa(job #679440)
| Utilizator |  chereches florian cherehcesbm |
Data | 13 februarie 2012 11:33:36 |
|---|---|---|---|
| Problema | Submultimi | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.25 kb |
var f:text;
n,i,j:integer;
Begin
assign(f,'submultimi.in');reset(f);
readln(n);
close(f);
assign(f,'submultimi.out');rewrite(f);
for i:=1 to n do Begin
while i<=n do Begin
write(f,i,' ');
inc(i);End;
writeln(f);
End;
close(f);
End.