Urutan bilangan genap

arif zainurrohman

program ulanggenap;
uses wincrt;
var
i,j:integer;
begin
for i:= 1 to 10 do
begin
if (i mod 2 = 0) then for j:=1 to (i div 2) do
begin
write (j*2);
if (j mod 2 = 0) then write('');
end;
writeln;
end;
end.


Kota Pempek , 22 Maret 2012

akhukum fillah arif zainurrohman