Fungsi If Then Multicondition "And" | Free Pascal | Tutorial

Kembali lagi.
Saat ini, kita akan membahas tentang fungsi If Then Multicondition.
Sebenarnya,, fungsi ini adalah sama dengan fungsi If Then biasa.
Namun, bedanya,, disini ada lebih dari 1 kondisi.. Yak, langsung cek aja dah kalo gitu.
If Then Multiconditional

if  ((kondisi pertama)) and ((kondisi kedua)) then
begin
    (perintah-perintah)
end;

Contoh dari Fungsi di atas adalah seperti ini :

if (bil > 0) and (bil mod 2 = 0) then
begin
    writeln(bil);
end;

Logikanya tau sendiri kan ya?? jika tidak, ini maksudnya.

Kita pakai contoh diatas. Jadi jika ada suatu inputan. Maka program akan mengecek inputan tersebut. Jadi jika if then multiconditionnya menggunakan kata "and" maka HARUS kedua syarat memenuhi. Hasilnya, program itu akan mengecek apa bilangan tersebut lebih dari 0 dan apa bilangan tersebut habis di bagi 2. Jika salah satu condisi tidak memenuhi, maka inputan itu tidak di outputkan. Jika keduanya memenuhi, maka lanjut ke coding berikutnya.

Langsung ke Soal ya.. :D hehehe..
Begini soalnya.

Diberi kesempatan untuk input bilangan integer, lalu buat cek apa dia bilangan positif dan habis dibagi 2. Kemudian outputkan bilangan yang memenuhi syarat tersebut.

Format Masukan

1 bilangan integer

Format Keluaran

tulis bilangan itu jika bilangan itu positif dan habis dibagi 2. jika tidak, jangan tulis apa-apa

Input

4

Output

4

Contoh Input

-6

Contoh Output

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a : integer;
 
begin
   readln (a);
   if (a > 0) and (a mod 2 = 0) then writeln (a);
end.