Contoh program Genap Pascal FOR DO - Catatan Faiq Hisyam Marwan

Contact Form

 

Contoh program Genap Pascal FOR DO

Program for_genap
uses crt;
var z : integer;

begin 
clrscr;

write('Output Bilangan Ganjil : ');

x:=1;
        for x:=1 to 30 do
        if(x mod 2)=0 then
        write(x,' ');
        x:=x+1;

readln;
end.


Semoga bermanfaat :v

Total comment

Author

Faiq Hisyam Marwan

0   comments

Cancel Reply