Κώδικας: Επιλογή όλων
//fpc 3.0.0
program test_cases;
var i,n:longint;
f:text;
begin
assign(f,'hydrocarbons.in');
rewrite(f);
n:=10;
writeln(f,n);
for i:=0 to n-1 do begin
write(f,1000+1000*(i mod 9),' ');
write(f,300+300*(i mod 8),' ');
writeln(f,4+4*(i mod 7));
end;
close(f);
end.
Κώδικας: Επιλογή όλων
10
1000 300 4
2000 600 8
3000 900 12
4000 1200 16
5000 1500 20
6000 1800 24
7000 2100 28
8000 2400 4
9000 300 8
1000 600 12