program segitigaacak;
uses wincrt;
var n,i,j:integer;a,b:real;
begin
readln (n);
a:=0;
b:=10;
for i:=1 to n do
begin
for j :=1 to i do
begin
if i mod 2=0
then
begin
b:=b+1;
write (b:4:0);
end
else
begin
a:=a+1;
write (a:4:0);
end;
end;
writeln;
end;
writeln;
end;
end.
OUTPUT :
Gambar 1 Output dari Jumlah Baris Sebanyak 10 Yang Diinginkan
0 comments:
Post a Comment