This nice Blogger theme is compatible with various major web browsers. You can put a little personal info or a welcome message of your blog here. Go to "Edit HTML" tab to change this text.
RSS

Minggu, 20 Desember 2009

Main-Main dgn Segitiga Asik

Posted in | 20.23 | by ClubPoker-DNA

uses wincrt;
var
a,b,n:integer;
begin
write('Masukkan banyak angka = '); readln(n);
writeln;
for a:=1 to n do
begin
for b:=1 to a do
write(a:2);
write(' ');
writeln;
end;
end.

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)