code :
========================================================================
program tugas1;
uses crt;
var i,j : integer;
begin
clrscr;
i := 5;
while i >= 1 do;
begin
j := 5;
while j >= 5 do;
begin
writeln (' ' , j);
j := j - 1;
end;
i := i - 1;
writeln (' ')
end;
readln;
end.
=========================================================================
========================================================================
program tugas1;
uses crt;
var i,j : integer;
begin
clrscr;
i := 5;
while i >= 1 do;
begin
j := 5;
while j >= 5 do;
begin
writeln (' ' , j);
j := j - 1;
end;
i := i - 1;
writeln (' ')
end;
readln;
end.
=========================================================================
Komentar
Posting Komentar