1. 320 * 480 * 16 = 2457600 бит.
2457600 : 8 = 307200 байт.
307200 : 1024 = 300 КБ
2. 2,5 МБ = 20971520 бит.
<span>2684354560 б = 2,5 ГБ.
</span>
18 + 10 = 28 символов - мощность алфавита
N =
, 28 =
, i = 5 бит - для одного символа.
5 * 7 = 35 бит - для хранения 7 символов.
35/8 = 5 байт.
5 * 60 = 300 байт - для хранения 60 номеров
Ответ: 300 байт.
var x: integer;
begin
write('X=');
readln(x);
if x mod 2=0 then
writeln('X является чётным числом');
else
writeln('X является нечётным числом');
end;
Рассматривая 0001 0011 0010 0100 0011 0101 0100 как двоичные числа, запишем в десятичной системе их эквиваленты: 1 3 2 4 3 5 4
Видно, что числа, стоящие через одно, растут на единицу, т.е. на нечетных местах стоят числа ряда 1 2 3 4, а на четных - 3 4 5. Следующее число по порядку восьмое, на четной позиции, следовательно продолжается ряд 3 4 5 и следующее число - это 6. В двоичной системе оно представляется, как 0110.
Ответ:<em><u> 0110</u></em>
Решение в лоб :D, только желательно запускай прогу отдельно в папке.
Program out;
var fo:text;
begin
assign(fo,'output.txt');
rewrite(fo);
Writeln(fo,'Program AplusB;');
Writeln(fo,'var A,B: Integer;');
Writeln(fo,'begin');
Writeln(fo,' Assign(input,''input.txt'');');
Writeln(fo,' Reset(input);');
Writeln(fo,' Assign(output,''output.txt'');');
Writeln(fo,' Read(A,B);');
Writeln(fo,' ReWrite(output);');
Writeln(fo,' WriteLn(A+B);');
Writeln(fo,' Close(input);');
Writeln(fo,' Close(output);');
Writeln(fo,'end.');
close(fo);
end.