Pages

Monday, January 7, 2019

ASD 7

ASD 7a
program Komar7a;
Var
n,i: integer;
begin
     write('Ketik banyaknya bilangan: ');
     readln (n);
     i:=1;
     while i<n do
     begin
          writeln(i);
          i:=i+1;
     end;
readln;
end.

====
ASD 7b
program Komar7b;
var
   n,i:integer;
begin
     write('Ketik banyaknya bilangan: ');
     readln(n);
     i:=0;
     repeat
     i:=i+3;
     writeln(i);
     until i>=n;

readln;
end.
Bitcoin Offers:
Free Bitcoin, Double Bitcoin, Bitcoin Investment, Bitcoin Trading



"Bitcoin and Forex are high risk business. We must join them smartly."

No comments:

Post a Comment