contoh program pascal REPEAT UNTIL - Catatan Faiq Hisyam Marwan

Contact Form

 

contoh program pascal REPEAT UNTIL

Program repeat_genap;
uses crt;
var z : integer;

begin
clrscr;

write('output bilangan Genap : ');

z:=1
repeat
         if(x mod 2)=0 then
         write(z,' ');
         z:=z+1;
until z=30;

readln;
end.

Total comment

Author

Faiq Hisyam Marwan

0   comments

Cancel Reply