)сколько символов содержит текст, занимающий 1 кбайт памяти?

Вюникоде = 512 символов; в любой другой обычно 1024 символов.

Определить является ли вводимая с клавиатуры последовательность арифметической или прогрессией. хранить элементы последовательности в памяти нет необходимости.  uses crt;   var a,b,c,u: real;   begin  u: =8;   readln(a);   readln(b);   repeat  begin  readln(c);   if (c/b)=(b/a) then u: =1;   if (c-b)=(b-a) then u: =2;   a: =b;   b: =c;   end;   until b=0;   if u=1 then writeln (' прогрессия');   if u=2 then writeln ('арифметическая прогрессия');   if not ((u=1) or (u=2)) then writeln ('ошибка');   end.

Var   m, n, i, j: integer;   s: real;   a: array[,] of real;   begin   write('введите s: ');   read(s);   write('введите m, n: ');   read(m, n);   setlength(a, m + 1, n + 1);   writeln('введите элементы матрицы: ');   for i : = 1 to m do       for j : = 1 to n do           read(a[i, j]);   for i : = 1 to m do   begin       for j : = 1 to n do            if a[i, j] < > s then           begin               writeln(a[i, j]);               break;           end;       if a[i, j] = s then           writeln('-');   end; end. пример: введите s: 7 введите m, n: 3 4 введите элементы матрицы: 7 4 3 7 3 5 1 4 7 7 7 7 4 3 -