Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
2^i = 64
i = 6 бит потребуется на 1 символ
256 * 128 * 6 = 196608 бит памяти потребуется чтобы сохранить текст
196608 бит: 8 = 24576 байт : 1024 = 24 килобайт
ответ. 24 килобайт
var
i,j,s: integer;
x: array[1..8,1..8] of integer;
y: array[1..10,1..10] of integer;
begin
s: =0;
for i: =1 to 8 do
for j: =1 to 8 do
readln(x[i,j]);
if i< =j then s: =s+x[i,j];
end;
writeln("сумма для x=", s);
for i: =1 to 10 do
for j: =1 to 10 do
readln(y[i,j]);
if i< =j then s: =s+y[i,j];
writeln("сумма для y=", s);
end.
друг сказал) если не правильно извини, но он вродь хорош в информе
var a: array [1..10] of integer;
i,k: integer;
read(a);
k: =1;
for i : = 1 to 10 do
if a[k]> a[i] then k: =i;
if k mod 2 = 0 then writeln(k," - chetnoe")
else writeln(k," - ne chetnoe");
Популярные вопросы