Информационное сообщение объемом 6 кбайт состоит из 6144.сколько символов содержит алфавит при которого было записано это сообщение вместе с дано решение и найти плез а то училка 2 поставит
begin Assign(f, 'input.dat'); Reset(f); writeln('Считываемые данные'); for i := 1 to n do begin for j := 1 to n do begin read(f, a[i, j]); write(a[i, j]:4) end; writeln end; writeln; for i := 1 to n do begin for j := 1 to n do begin read(f, b[i, j]); write(b[i, j]:4) end; writeln end; Close(f); Rewrite(f); for i := 1 to n do for j := 1 to n do if j <> n + 1 - i then write(f, a[i, j], ' '); writeln(f); for i := 1 to n do for j := 1 to n do if j <> n + 1 - i then write(f, b[i, j], ' '); writeln(f); Close(f); Reset(f); writeln('Данные, перезаписанные в файл'); while not eof(f) do begin readln(f,s); writeln(s) end; Close(f); writeln end.
var T: array[1..n] of integer; mean: real; i, k: integer;
begin writeln('Введите ', n, ' элементов массива'); for i := 1 to n do begin read(T[i]); mean := mean + T[i] end; mean := mean / n; k := 0; writeln(#13#10, 'Введено: '); for i := 1 to n do write(T[i]:5); writeln(#13#10, 'Элементы массива, превышаюшие среднее арифметическое ', mean:0:2); for i := 1 to n do if T[i] > mean then begin write(T[i]:5); k := k + 1 end; writeln(#13#10, 'Найдено элементов, превышаюших среднее арифметическое: ', k) end.
6144 байт
1) ---------------- = 1 байт
6144 симв.
1 байт = 8 бит
По формуле :
ответ: 256