uses crt;
var i, j, k : integer;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to i do
begin
write(j,' ');
end;
writeln;
end;
readkey;
end.
uses crt;
var i, j, k : integer;
begin
clrscr;
for i:=4 downto 1 do
begin
for j:=4 downto i do
begin
write(j,' ');
end;
writeln;
end;
readkey;
end.
Tidak ada komentar:
Posting Komentar