Perintah REPEAT, UNTIL
uses crt;
var
a: integer;
begin
clrscr;
a := 1;
repeat
write(a,' ');
a := a + 1;
until a > 20;
readln;
end.
repeat
write(a,' ');
a := a + 1;
until a > 20;
readln;
end.
Show
0 Comments
prev
next
Snippet
Blogger templates
Category List
- Cheat My Shop (5)
- Cheat Point Blank (6)
- Dasar-dasar Pemrograman Web (9)
- Delphi (2)
- Download Games (26)
- Entertainment (7)
- Facebook (2)
- Hacking (10)
- Humor (8)
- Manajemen Umum (1)
- Music (1)
- News (21)
- Olahraga (8)
- PBO (1)
- Sistem Operasi (8)
- Software (2)
- Tentang Cinta (7)
- Tips (3)
- Turbo Pascal (12)
- Tutorial (14)
- Unik (1)
- Zone Blogger (12)
- Zynga Poker BOT (1)
BUKU TAMU
Spoiler:
Followers
Snippet
