Yuk Belajar Algoritma Bareng-Bareng

Soal : Buat program yang menampilkan bilangan genap ganjil dengan menggunakan While Do atau For To Do!

Jawab:
DENGAN MENGGUNAKAN FOR TO DO
program genapganjil;
uses crt;
var A : integer;
B : integer;
begin
clrscr;
write('Tuliskan Angka Batas terakhir yang anda inginkan = ');
readln (B);
writeln('Angka genapnya adalah = ');
For A : = 1 to B do
If (A mod 2 = 0) then writeln (A);
writeln ('Angka ganjilnya adalah = ');
For A : = -1 to B do
If (A mod 2 = 1) then writeln (A);
readkey
end.

DENGAN WHILE TO DO
program genapganjil;
uses crt;
var A : integer;
B : integer;
begin
clrscr;
write ('Tuliskan angka batas terakhir = ');
readln (B);
writeln('Maka Angka ganjilnya adalah = ');
A: = -1;
while (A begin
A: = A+2;
writeln(A);
end;
writeln('Sedangkan angka genapnya adalah = ');
A: = 0;
while(A begin
A:=A+2;
writeln(A);
end;
readkey
end.

SELAMAT MENCOBA n TOLONG DIKOREKSI YA TEMEN-TEMEN!