MI666 Код
{ Эта функция проверяет, является ли число простым }
function isPrime(a: word): boolean;
var i: integer;
Begin
isPrime:=false;
if not odd(a) and (a<>2) then exit;
i:=3;
while i <= sqrt(a) do
begin
if a mod i = 0 then Exit;
inc(i,2)
end;
isPrime:=true
End;
+ в ФАКе есть функция перевода числа в двоичную систему счисления +
здесь - функция, проверяющая, является ли строка палиндромом. Что еще нужно?
Учитесь пользоваться поиском...