Perintah For, To, Do
uses crt;
var
i,j,n: integer;
begin
clrscr;
write('Masukkan Angka: ');readln(n);
for i := 1 to n do
begin
for j := 1 to i do
begin
write(i);
end;
writeln;
end;
readln;
end.
for i := 1 to n do
begin
for j := 1 to i do
begin
write(i);
end;
writeln;
end;
readln;
end.
Show
0 Comments
prev
next
