misalkan ni, cari bilangan kelipatan 25 di antara 0 - 100

hasilnya : 0, 25, 50, 75, 100

nah dari situ aku bisa lihat bahwa, ciri kelipatan 25 adalah, 0 saja tanpa ada embel, 0 lebih dari 2, ada 2 dan 5, ada 5 dan 0, ada 7 dan 5.

jadi 430 bukan merupakan kelipatan 25

kira2 pseudocodepascalnya

var
   s : string;
   nol1,nol2,dua,lima,tujuh : boolean;
   i : integer;

begin
read(s);
nol1:=false; nol2 :=false; dua:=false; lima:=false; tujuh:=false;
for i := 1 to length(s) do begin
       if (s[i]='7') then tujuh:=true
       else if (s[i]='5') then lima:=true
       else if (s[i]='2') then dua:=true
       else if (s[i]='0') and (nol1=false) then nol1:=true
       else if (s[i]='0') and (nol1=true) then nol2:=true;
end;
if (length(s)=1) and nol1 then writeln('YA')
else if nol1 and nol2 then writeln('YA')
else if dua and lima then writeln('YA')
else if tujuh and lima then writeln('YA')
else if lima and nol1 then writeln('YA')
else writeln('TIDAK');
end.

kalo salah mohon dikoreksi

ndut ndut

Jawaban terbaru