Var a:array[1..15] of integer;
i,b: integer;
begin
b:=1;
for i:=1 to 15 do readln(a[i]);
for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i];
writeln(b);
end.
<span>A:=X div 1000=1234/1000=1
B:= X mod 1000 div 100=(1234/1000)/100=234/100=2
C:= X mod 100 div 10=(1234/100)/10=34/10=3
D:= X mod 10=1234/10=4
Y:=1000*d+100*c+10*b+a=1000*4+100*3+10*2+1=4321
</span><span>F:= X - Y+1=1234-4321+1=-3086</span>
"В шести литрах 6000 миллилитров."
в этой строке 32 символа (с пробелами и точками). Каждый из них кодируется 16ю битами, значит всего будет
16 * 32 = 512 бита
Ответ. Информационный объем сообщения равен 512 бит
С помощью данной программы на Паскале преобразуешь коды в символы (или таблиц). <em>Ответ</em><em>:</em>paintbrush.
var a:char; b:integer;
begin
writeln ('Введите код символа');
read(b); // чтение кода
a:=chr(b); // преобразует код в символ
write ('Символ - ',a);
end.