13.METODE PERULANGAN PADA PASCAL A. 1 2 3 4 B. 2 2 2 C. 3 2 1 1 2 3 4 1 1 1 3 2 1 1 2 3 4 0 0 0 3 2 1 D.1 E.4 3 2 1 F. 1 1 2 4 3 2 1 5 1 2 3 4 3 7 9 11 1 2 3 4 4 13 15 17 19

JAWAB:
A.uses crt;
var b,a,i:integer;
begin
clrscr;
for a:= 1 to 4 do
begin
for b:= 1 to 4 do
begin
write(b:3);
end;
writeln;
end;
readln;
end.

B.uses crt;
var a,b,i:integer;
begin;
clrscr;
i:=2;
for a:= 2 downto 0 do
begin
for b:= 2 downto 0 do
begin
write(a:2);
end;
writeln;
end;
readln;
end.

C. uses crt;
ar a,b:integer;
begin;
clrscr;
for a:= 3 downto 1 do
begin
for b:=3 downto 1 do
begin
write(b:2);
end;
writeln;
end;
readln;
end.

D. uses crt;
var a, b: integer;
begin
clrscr;
for a:= 1 to 4 do
begin
for b:= 1 to a do
write(b:4); writeln;
end;
readln;
end.

E. uses crt;
var i, a,b:integer;
begin
clrscr;
for a:= 4 downto 1 do
begin
i:=4;
for b:= 1 to a do
begin
write(i:4);
i:=i-1;
end;
writeln;
end;
readln;
end.


F. uses crt;
var i, a, b:integer;
begin
clrscr;
i:= 1;
for a:= 1 to 4 do
begin
for b:= 1 to a do
begin
write(i:4);
i:= i+2;
end;
writeln;
end;
readln;
end.