Page 142 - Pemrograman Dasar kelas X

138 Pemrograman Dasar SMK Kelas X Sem 2

For a := 1 to 5 Do

For b:= 1 to a Do
Write(b);
End.

Output dari program berikut :

a. 1 b. 12345 c. 12345 d. 112123123412345
12 1234
123 123

1234 12

5. Output dari program berikut :

Var i : integer;
Begin

i :=1;
While i <= 5 Do
Begin

If 10 Mod i = 0 Then
Writeln(10 Div I);
i := I + 1;

End;
End.
a. 1 2 5 b. 10

5
2

c. 5 d. 2 5 10
e. 5 2 1