var
a, b: <em>integer</em>;
begin
assign(input, 'input.txt');
assign(output, 'input.txt');
reset(input);
rewrite(output);
readln(input, a, b);
if (a mod 2 = 1) then
writeln(output, b mod 2)
else
writeln(output, '0');
close(input);
close(output);
end.
Var
a:integer;
begin
readln(a);
If (a<10000) and (a>=0) then
If (a>999) then
If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>99) and (a<1000) then
If ((a div 100)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>9) and (a<100) then
If ((a div 10)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
writeln('1')
else
writeln('Неправльное число');
end.
Большое немного решение, может можно и поменьше, но так точно правильно
"В шести литрах 6000 миллилитров."
в этой строке 32 символа (с пробелами и точками). Каждый из них кодируется 16ю битами, значит всего будет
16 * 32 = 512 бита
Ответ. Информационный объем сообщения равен 512 бит
1024=1кбайт
256мбайт=256000кбайт
1) I=k*i, k- количество символов, i - количество бит на символ
I=30*(2*8)= 480 бит
2)количество символов в сообщении: 28, на 1 символ приходится 1 байт.
Тогда информационный объем сообщения 28*1=28 байт
3)k= I/i
k=320/(1*8)= 40 символов
4)Всего символов k=4*32*64= 8192
Объем сообщения: I=k*i= 8129*8 = 65536 бит
65536 бит/8= 8192 байт
8192 байт/1024= 8 Кбайт
5) BEGIN