Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
2^i = 64
i = 6 бит потребуется на 1 символ
256 * 128 * 6 = 196608 бит памяти потребуется чтобы сохранить текст
196608 бит: 8 = 24576 байт : 1024 = 24 килобайт
ответ. 24 килобайт
program pr;
var mas: array[1..40] of integer;
i, sum: integer;
begin
randomize;
for i: =1 to 40 do mas[i]: =random(20);
for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];
writeln ('сумма равна ', sum);
readln;
end.
программу проверил все работает
всего длина окружности составляет 2пr, а половина - пr
1)
var
i,k: integer;
a: array [1..14] of integer;
k: =0;
for i: =1 to 14 do
a[i]: =random(46)-15;
write(a[i]: 3);
if a[i] mod 2=0 then k: =i;
end;
if k> 0 then
for i: =k to 13 do a[i]: =a[i]+1;
a[14]: =0;
writeln;
for i: =1 to 14 do write(a[i]: 3);
2)
for i: =1 to 7 do
k: =a[i];
a[i]: =a[i+7];
a[i+7]: =k;
Популярные вопросы