Program Pascal - Perulangan - WhileDo
Program Pascal - Perulangan - WhileDo
Script-nya :
Program PerulanganWhileDo;
uses crt;
Var
i : integer;
Begin
i :=1;
While i <= 3 Do
Begin
If 10 Mod i = 0 Then
Writeln(10 Div I);
i := I + 1;
End;
End.
Video Tutorialnya :
Script-nya :
Program PerulanganWhileDo;
uses crt;
Var
i : integer;
Begin
i :=1;
While i <= 3 Do
Begin
If 10 Mod i = 0 Then
Writeln(10 Div I);
i := I + 1;
End;
End.
Video Tutorialnya :
0 Response to "Program Pascal - Perulangan - WhileDo"
Post a Comment