Ascii Karakter Tablosu
uses crt;
var
a:integer;
i:byte;begin clrscr;
for i:=1 to 255 do begin
a:=(i div 24);
if (i>=24*a) then begin
gotoxy(a*5,i-24*a);
write(chr(i));
end else
writeln(chr(i));
end;
readln;
end.
Fakröriyel
uses crt;
var
faki,fakk,fakj,i,j,k,l,sonuc:longint;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
begin
faki:=1;
for l:=1 to i do
faki:=faki*l;
fakj:=1;
if j<>0 then
for l:=1 to j do
fakj:=fakj*l;
fakk:=1;
if k<>0 then
for l:=1 to k do
fakk:=fakk*l;
sonuc:=faki+fakj+fakk;
if sonuc=(i*100+j*10+k) then
writeln(sonuc);
end;
readln;
end.
Faktöriyel2
uses crt;
var
i,a,b,c,d,j,faka,fakb,fakc,sonuc:longint;
begin clrscr;
for i:=100 to 999 do
begin
a:=i div 100;
d:=i mod 100;
b:=d div 10;
c:=d mod 10;
faka:=1;
for j:=1 to a do
faka:=faka*j;
fakb:=1;
if b<>0 then
for j:=1 to b do
fakb:=fakb*j;
fakc:=1;
if c<>0 then
for j:=1 to c do
fakc:=fakc*j;
sonuc:=faka+fakb+fakc;
writeln(sonuc);
end;
readln;
end.
