Var
Symbol: char;
begin
write('Введите латинскую букву или цифру: ');
readln(Symbol);
case Symbol of
'a'..'z': writeln('Это маленькая буква');
'A'..'Z': writeln('Это большая буква');
'0'..'9': writeln('Это цифра');
end;
end.
Var a,b:real;
<span>begin </span>
<span>writeln('Введите число для угадывания'); </span>
<span>read(a); </span>
<span>writeln('Введите число'); </span>
<span>repeat </span>
<span>read(b); </span>
<span>if b>a then writeln('Меньше'); </span>
<span>if b<a then writeln('Больше'); </span>
<span>until b=a; </span>
<span>writeln('Вы угадали'); </span>
<span>end. </span>
Var ar:array[1..10] of integer;
s,i:integer;
begin;
for i:=1 to 10 do
begin;
readln(ar[i]);
if ar[i]>0 then s:=s+ar[i];
end;
writeln(s);
end.
2^i=N, где N - объём информации, а i - кол-во бит, которым кодируется единица информации. N=16*8=128.
2^i=128
i=7
Ответ: 7бит