8.
var x,y,z,k:integer;
begin
k:=0;
read (x,y,z);
if (x>=1) and (y>=1) and (z>=1) then
begin
if (x<50) then k:=k+1;
if (y<50) then k:=k+1;
if (z<50) then k:=k+1;
writeln (k);
end else
writeln ('Вы ввели не натуральные числа');
end.
Ответ:
3 бита
Объяснение:
2^i=N, где N - количество символов в алфавите
i -информационный вес символа
В восьмеричной системе счисления - 8 символов, значит, вес одного символа равен 3 битам
A)
var
ch1,ch2:char;
begin
readln(ch1,ch2);
writeln(ch1,'=',integer(ch1));
writeln(ch2,'=',integer(ch2));
end.
б)
var
a,b,c:char;
begin
readln(a,b,c);
writeln('Результат сцепления:',a+b+c);
end.
<span>4)C:\Документы\Интернет\Стратегии\Starcraft
</span>