Advertisemen
Menampilkan bilangan ganjil dari angka 1 s/d 100
1. Beri Nilai A = 2.
2. Untuk I = 1 sampai 100 lakuka
2.1 Cetak Nilai A
2.2 Jika A mod 2 = 1 , maka nilai A = bilangan ganjil
uses crt;
var I,A: integer;
begin
A:=1;
clrscr;
for I:= 1 to 100 do
begin
if I mod 2= 1 then
write(I:5);
end;
Readln;
end.
Advertisemen