Является ли число перевёртышем, т.е числом, десятичная запись которого читается одинаково слева направо и справа налевопример входных данных пример выходных данных 122 нет 121 перевёртыш 222 перевёртыш

Читается одинаково слева направо и справа налево.122 - нет121 - перевертыш222 - перевертышvar n: integer; begin write('n = '); readln(n); if (n div 100) = (n mod 10) then writeln('перевертыш') else writeln('нет'); readln; end.

begin

  var n : = readinteger();

  for var i : = 1 to n.tostring.length div 2 do

  begin

    if (n.tostring[i] < > n.tostring[n.tostring.length - i + 1]) then

    begin

      write('нет');

      exit;

    end;

  end;

  write('перевёртыш');

end.

1) не важно, какой оно длины. если оно заканчивается чётной цифрой, то оно чётно, обратное тоже верно. тупо проверяем число на чётность: если число остаток 2 = 0 то вывод.цепь("верно.") иначе вывод.цепь("не верно.") кон 2) пер массив: ряд n из цел, сч: цел; указ от сч : = 0 до n - 1 вып   если массив[сч] < 0 то массив[сч] : = -массив[сч] кон кон 3) пер массив: ряд n из цел, сч, мин_зн, мин_ном: цел; указ мин_зн : = массив[0]; мин_ном : = 0; от сч : = 1 до n - 1 вып   если массив[сч] > мин_зн то мин_зн : = массив[сч]; мин_ном : = сч кон кон    

Program n1; function isprost(x: integer): boolean; var i: integer; begin if x< 2 then isprost: =false else begin isprost: =true; for i : = 2 to round(sqrt(x)) do if x mod i = 0 then isprost: =false; end; end; var a,b,i,sum: integer; p: real; begin writeln('введите границы отрезка [a; b] (предполагается, что числа натуральные)'); write('a='); readln(a); write('b='); readln(b); p: =1; sum: =0; if(a< =0) or (b< =0) then write('ошибка, числа не натуральные') else begin writeln('простые числа на отрезке [',a,'; ',b,']'); for i: =a to b do if isprost(i) then begin p: =p*i; sum: =sum+i; write(i,' '); end; writeln; writeln('их сумма: ',sum); writeln('их произведение: ',p); end; end.