8) var f_tmp, f1, f, sum: integer; i, n: byte; begin readln(n); f_tmp := 0; f1 := 1; if n = 0 then sum := 0 else sum := 1; for i := 2 to n do begin f := f1 + f_tmp; sum := sum + f; f_tmp := f1; f1 := f end; writeln('Сумма ', n , ' чисел = ',sum); readln; end.
9) const n = 5; var A: array [1 .. 10, 1 .. 10] of integer; i, j, s, w, k, q: integer; begin for i := 1 to n do for j := 1 to n do begin write('A[', j, ',', i, '] = '); readln(A[j, i]); end; s := 0; for i := 1 to n do s := s + A[1, i]; k := 1; for i := 1 to n do begin w := 0; q := 0; for j := 1 to n do begin w := w + A[j, i]; q := q + A[i, j]; end; if (s <> w) or (q <> s) then k := 0; end; if k = 0 then write('Квадрат не магический') else write('Квадрат магический'); readln; end.
Любой вопрос, на который можно ответить с определённостью "да" или "нет" несёт в себе 1 бит информации. Примеры: "Железо - это металл или нет?","В корзине 2 шара - белый и чёрный. Вынимают наугад один шар. Вопрос, это белый шар?" и т.д. и т.п.