langsung copy scrip di bawah ini :
program mengecek_angka;
uses wincrt;
var
i :
integer;
begin writeln ('Nama : Fajar Bella Syara'); writeln;
writeln;
write ('masukan angka : '); readln (i);
if (i
>= 0) then
writeln
('bilangan positif')
else
writeln
('bilangan negatif');
if (i mod
2 = 0) then
writeln
('bilangan genap')
else
writeln
('bilangan ganjil');
if (i =
2) or (i=3) or (i=5) or (i=7) then
writeln
('bilangan prima')
else
writeln
('buka bilangan prima');
end.
Hasil :
0 Response to "scrip membuat program mengecek angka,positif, negatif di pascal"
Post a Comment