Идея с предложением решить социальную или городскую проблему с использвоанием мобильных технологий

276

296

Посмотреть ответы 1

Ответы на вопрос:

ArsenKk

Информатика

4,7(44 оценок)

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