3.сравните (поставьте знак отношения) • 20 байт и - вопрос №997654732004531 от aiau2004 21.03.2020 01:05

Question

Информатика: 3.сравните (поставьте знак отношения) • 20 байт и 0,45 кбайт. • 31 байта и 5400 бит. • 1136 бит и 1,5 кбайта. • 7000 бит и 1,1 кбайт. • 1,1 мб и 360 кбайт. 4. пользователь вводит текст с клавиатуры со скоростью 90 знаков в минуту. какое количество информации будет содержать текст, который он набирал 20 минут (используется компьютерный алфавит)? 5. какой объем информации содержит сообщение, уменьшающее неопределенность знаний в 4 раза? 6. каждая ячейка памяти компьютера, работающего в троичной системе

aiau2004 · Answer

Не самый рациональный метод решения, но как говорится чем смог тем

var a,b,c,x,kc,kn,k1,k2:integer;
begin
kc:=1;
kn:=1;
k1:=0;
k2:=0;
a:=0;
b:=0;
writeln('Введите число x');
read(x);
while x>0 do begin
c:=x mod 10;
if c mod 2=0 then begin
inc(k1);
a:=a+c*kc;
kc:=kc*10;
end;
if c mod 2<>0 then begin
inc(k2);
b:=b+c*kn;
kn:=kn*10;
end;
x:=x div 10;
end;
if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных');
writeln(a,' ', b);
end.