Pembahasan Soal Latihan TOKI Learning Center

Bab 1 : Pengenalan/ 1C : Perulangan

Cek Bilangan Prima

Link Soal

PROGRAM cekprima;

VAR

prima : boolean;

i,j : integer;

begin

while not eof (input) do begin

readln(i);

prima:= true;

if i < 2 then prima:= false;

for j:= 2 to i-1 do begin

if i mod j = 0 then prima := false;

end;

if prima = true then writeln('YA') else writeln('TIDAK');

end;

readln;

end.