Есть 2 популярных вида кодировки: ASCII и Unicode. Кодировочные таблицы нужны для декодировки или кодировки сообщений. Например цифра "3" в таблице юникод кодируется как "<span>0033</span>".
<span>uses crt;
procedure Prost(a:longint;var f:boolean);
var i:longint;
begin
if a<3 then f:=false
else
begin
f:=true;
for i:=2 to round(sqrt(a)) do
if a mod i=0 then f:=false;
end;
end;
var a,b,i,k:longint;
f:boolean;
begin
clrscr;
repeat
writeln('Введите диапазон натуральных чисел a<b:');
readln(a,b);
until (a>=0)and(b>a);
k:=0;
for i:=a to b do
begin
Prost(i,f);
if f then
begin
write(i,' ');
k:=1;
end;
end;
if k=0 then writeln('Простых чисел в интервале ',a,' ',b,' нет!');
readln
end.</span>
Попробуй тут
http://www.bestreferat.ru/referat-8161.html
1 , 4 , 2 , 3 , 3 , 4 ,1, 2
Var a,b,c:integer;
begin
readln(a);
b:=10;
while a>0 do
begin
c:=a mod 10;
if (c mod 2<>0) and (c<b) then b:=c;
a:=a div 10;
end;
if b<10 then write(b) else write('В числе нет нечетных цифр');
end.