Pascal. в одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. количество элементов массива, лежащих в диапазоне от a до b. 2. сумму элементов массива, расположенных после максимального элемента. 3. упорядочить элементы массива по убыванию модулей. правило формирования массива: bi=cos(i), где i∈ [1,50].

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.