uses
crt;
var
b,c,d,e:
real
;
a,bn,cn,en,dn:
integer
begin
clrscr;
textcolor(white);
writeln
(
'Nazm DEM˜R (SDU/Senirkent MYO ”§rencisi)'
);
textcolor(red);
' B™LšNEB˜LMEY˜ DENETLEYEN PROGRAM'
'2 ile b”lnebilme ='
'3 ile b”lnebilme ='
'5 ile b”lnebilme ='
'7 ile b”lnebilme ='
write
'Say girin='
readln(a);
b:=a/
2
c:=a/
3
d:=a/
5
e:=a/
7
bn:=trunc(b);
cn:=trunc(c);
dn:=trunc(d);
en:=trunc(e);
gotoxy(
20
,
6
if
a=bn*
then
'b”lnyor'
)
else
'b”lnemiyor'
a=cn*
8
a=dn*
9
a=en*
readln;
end
.
nazım demir
demirnazim@hotmail
com