Cari Blog Ini

menampilkan 1 sampai 10

Jumat, 20 Desember 2013
source code untuk menampilkan angka 1 to 10 dengan fungsi for..to..do
uses crt;
  var
  a,b : integer;
  f : longint;
Begin
   clrscr;
   a:=1;
   b:=10;
   for a :=1 to b do
   begin
   writeln(a);
   end;
   readln;
   end.

0 komentar:

Posting Komentar