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.
Var a,b: Integer; begin writeln('Введите число a:'); readln(a); writeln('Введите число b:'); readln(b); writeln(a,'² = ',a*a); writeln(b,'² = ',b*b); end.
Задача 1 1) 0.0002441 КБ=0.25 Б=2 бит 2)1.5 ГБ=1536 МБ=1572864 КБ 3)512 КБ=2^(16) Б=2^(21) бит Задача 2 Переводим все у биты, чтоб удобно было сравнивать. 1024×8=8192 бит 8000000>8192>106 Из этого выходит, что вариант 1 является правильным. Задача 3 1.44 МБ×1024=1474,56 (КБ) - обьем дискеты 1474,56:600=2.5 На дискете полностью вместятся 2 книги. 420 МБ×1024=430080 (КБ) - обьем flash-носителя 430080:600=716,8 На flash-диске полностью поместится 716 книг.