найти значение функции

[Kinski]

только начала программировать на Делфи...помогите,кто может:

нужно в заданном целом числе определить-количество разрядов,симметрично ли это число и выделить заданный ряд
0_о


вот-с
и ещ одна)))

Найти значение ф-ии по заданным формулам
y=((2a+x)/a-1)+x^2
где
a=x+5,если x<1
a=x-1,если 1=<x<3
a=x^2-3,если x>=3

[Lokos]

Не помню как делать ввод и вывод на паскале просьба не критиковать

var
   x,y,a:real
begin
   Writeln(x);//записываем циферку в x
   if x<1 then
      a:=x+5;
   if (x>=1) or (x<3) then
      a:=x-1;
   if x>=3 then
      a:=Power(x,2)-3//для использования функции power необходимо                          подключить библиотеку math
   y:=((2*a+x)/(a-1)))+Power(x,2);
Riteln(y);
end;

[Kinski]

примерно поняла ..спасибо!!!

[New man]

function PodschetCifer(x:integer):integer;
var i, sum:integer;
begin
   i:=1;
   sum:=1;
        begin
           while i<x do
              begin
                 inc(sum);
                 i:=i*10
              end;
            result:=sum;
         end;
     if x=0 then result:=1;
end;

[New man]

function power(x, step:integer;):integer;
var i, res:integer;
begin
  res:=1;
  for i:=1 tostep do
     res:=res*x;
   result:=res;
end;
function GveRazr(X, razr:integer):integer;
begin
    result:= x mod power(10, razr+1) - x mod power(10, razr);
end;

[New man]

program palindrom;
var buk:string;
    i: integer;
    a, b,m: integer;
    d:integer;
    pal: boolean;
begin
     write('Ведите сероку ');

     read(d);
     buk:=strtoint(d);
     writeln;
     a:=1;
     b:=length(buk); m:=1;
     pal:=true;
     while a<>b do
           begin
                if not((buk[a])=(buk[b])) then pal:=false;
                a:=a+1; b:=b-1; m:=m+1;
           end;
     writeln('Cлово палиндром?'pal);
end.

[New man]

Сообщение от Lokos

Не помню как делать ввод и вывод на паскале просьба не критиковать

var
   x,y,a:real
begin
   Writeln(x);//записываем циферку в x
   if x<1 then
      a:=x+5;
   if (x>=1) or (x<3) then
      a:=x-1;
   if x>=3 then
      a:=Power(x,2)-3//для использования функции power необходимо                          подключить библиотеку math
   y:=((2*a+x)/(a-1)))+Power(x,2);
Riteln(y);
end;

у тя ошибки
вот правильно

var
   x,y,a:real
begin

   readln(x);//записываем циферку в x
   if x<1 then
      a:=x+5 else
   if (x>=1) and (x<3) then
      a:=x-1 else
   if x>=3 then
      a:=Power(x,2)-3;                          
   y:=((2*a+x)/(a-1)))+Power(x,2);
wRiteln(y);
end;