:с клавиатуры вводится строка, определить является ли она палиндромом.заранее : )( нужна сделать на уровне 9 класса)в строке var только string и

Var st: string [80];     i, dl, f: integer; begin   readln (st);   f : = 1;   i : = 1;   dl : = length(st);     while (i < = dl) and (f = 1) do       begin         if (st[i] = st[0-i+1+dl]) then f : = 1 else f : = 0;         inc(i);       end;     if (f = 0) then writeln('да') else writeln('нет'); end.немного изменил вариант из учебника под условие=)

Var   a, b, c, d, e, f, g, h, i, j, x, y: integer;   begin   write('введите 10 чисел: ');   read(a, b, c, d, e, f, g, h, i, j);   if a < 0 then y : = y + 1 else x : = x + 1;   if b < 0 then y : = y + 1 else x : = x + 1;   if c < 0 then y : = y + 1 else x : = x + 1;   if d < 0 then y : = y + 1 else x : = x + 1;   if e < 0 then y : = y + 1 else x : = x + 1;   if f < 0 then y : = y + 1 else x : = x + 1;   if g < 0 then y : = y + 1 else x : = x + 1;   if h < 0 then y : = y + 1 else x : = x + 1;   if i < 0 then y : = y + 1 else x : = x + 1;   if j < 0 then y : = y + 1 else x : = x + 1;   writeln('количество положительных чисел: ', x);   writeln('количество отрицательных чисел: ', y); end.

Определим функцию f (x) = x^2 - 5cos(x-1);     необходимо найти ноль функции  f (x) ,  т.е. значение  х, при котором  f(x) = 0; f(x) обратится в 0 , если cos(x-1) > 0  =>   - pi/2 < x < pi/2  =>   =>   (2 - pi)/2  < x < (2 + pi)/2 корня будет два.  определим интервал для первого корня.  левая граница  а = - 0,57,  правая граница  b = 1 для второго корня левая граница  а = 1,  правая  b = 2 корни будем находить методом деления пополам. интервал [ a, b]  делится пополам и определяется знак функции в этой точке, в зависимости от знака изменяется левая или правая граница интервала. программа будет следующей: function f(x: real): real; begin   f: =x*x-5*cos(x-1); end; { основная программа } var a,b,c,eps: real;       k: integer; { a - начало интервала, b - конец } begin   write('a = ');   readln(a);   write('b = ');   readln(b);   if f(a)*f(b)< 0 then   begin       write('точность вычислений eps: ');   readln(eps);       k: =1;       while abs(a-b)> eps do       begin           c: =(a+b)/2;             if f(c)< > 0 then           begin               if f(c)*f(b)< 0 then                   a: =c               else                   b: =c           end;           k: =k+1;       end;       writeln('корень = ',a: 12: 8);       writeln('количество итераций: ',k);   end   else         writeln('интервал задан неверно'); end. a = -0.57 b = 1 точность вычислений eps: 0.00001 корень =  -0.51726021 количество итераций: 19 a = 1 b = 2 точность вычислений eps: 0.00001 корень =    1.83345795 количество итераций: 18