1.последовательность. последовательность 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, так первый ее элемент равен 1, остальные получаются из элементов с меньшими номерами с операции отрицания 1.если х=0 0.если х=1 второй элемент равен отрицанию первого, т.е.0, третий и четвертый равны отрицанию первого и второго; элементы с пятого по восьмой равны отрицаниям элементов 1-4 и тд необходимо составить программу, вычислявшую n-й член описанной последовательности(1

Var   i, j, k, n: integer;   m: array[1..1023] of byte; begin   write('введите натуральное число: ');   readln(n);   k : = 1;   m[1] : = 1;   j : = 2;   while j < = n do   begin       for i : = 1 to k do       begin           if m[i] = 1 then m[j] : = 0 else m[j] : = 1;           j : = j + 1       end;       k : = k * 2   end;     writeln('отладочная выдача всей последовательности');   for i : = 1 to n do write(m[i]);   writeln;     write(n, '-й член последовательности равен ', m[n]);   writeln(', два предыдущих равны ', m[n - 2], ' и ', m[n - 1]) end. тестовое решение: введите натуральное число: 50 отладочная выдача всей последовательности 10010110011010010110100110010110011010011001011010 50-й член последовательности равен 0, два предыдущих равны 0 и 1

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var s: =readlnstring;   writeln('количество слов в строке равно ',s.towords.count);   writeln('количество цифр в строке равно ',           s.where(c-> c in ['0'..'9']).count) end. пример в россии день победы празднуется 9 мая начиная от 1945 года количество слов в строке равно 11 количество цифр в строке равно 5 2. текстовый файл может содержать столько текстовых строк, сколько в классе учеников. каждый ученик должен прочитать и обработать строку из файла, соответствующую своему порядковому номеру в журнале.

Program first; uses crt; const n=1000; var   a: array[0..n] of integer;   i,k,z,s,r,p: integer;   begin   clrscr;   randomize;   print('введите количество элементов массива: '); readln(r);   println('значение элементов массива');   for i: =1 to r do begin       a[i]: =random(10)-3;       write(a[i]: 3)       end;   println();     { начало блока вычисления s - суммы отрицательных элементов       и k - количество положительных, меньших заданного z (число "а") }   print('введите число а: '); read(z);   s: =0; k: =0;   for i: =1 to r do begin       if a[i] < 0 then s: =s+a[i];       if (a[i] > 0) and (a[i] < z ) then k: =k+1       end;   writeln('сумма отрицательных элементов ',s);   writeln('количество положительных элементов, меньших заданного ',k);   { конец блока }     { начало блока нахождения номера последней пары       соседних элементов с разными знаками }   p: =1;   for i : = 1 to n-1 do if a[i]*a[i+1]< 0 then p : = i;   if p> 0 then       writeln('номер последней пары соседних элементов с разными знаками: ', p)   else       writeln('массив не содержит элементов с разными знаками');   { конец блока }   end. пример введите количество элементов массива: 12 значение элементов массива   5  5 -1 -2 -1  3  0 -3  4 -1  6  5 введите число а: 6 сумма отрицательных элементов -8 количество положительных элементов, меньших заданного 5 номер последней пары соседних элементов с разными знаками: 10