Programalama > PASCAL

uses crt;
var
b,c,d,e:real;
a,bn,cn,en,dn:integer;
begin
clrscr;
textcolor(white);
writeln('Nazm DEM˜R  (SDU/Senirkent MYO ”§rencisi)');
writeln;
writeln;
textcolor(red);
writeln('                   B™LšNEB˜LMEY˜ DENETLEYEN PROGRAM');
textcolor(white);
writeln;
writeln('2 ile b”lnebilme =');
writeln('3 ile b”lnebilme =');
writeln('5 ile b”lnebilme =');
writeln('7 ile b”lnebilme =');
writeln;
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*2 then
write('b”lnyor')
else
write('b”lnemiyor');
gotoxy(20,7);
if a=cn*3 then
write('b”lnyor')
else
write('b”lnemiyor');
gotoxy(20,8);
if a=dn*5 then
write('b”lnyor')
else
write('b”lnemiyor');
gotoxy(20,9);
if a=en*7 then
write('b”lnyor')
else
write('b”lnemiyor');
readln;
end.

nazım demir
demirnazim@hotmail.com