Скорее всего ты не дописал условие:
10100111₂=167
А9₁₆=169
Число между ними 168
Данные в компьютерное сети передаются через Паскали ,это позволяет увеличить скорость браузера и избавится от так называемых "рачков"-это вредоносные программы,заполняющие сеть ненужным контентом.
Program Ok;
var a,i,k,n:integer;
begin
k:=0;
write('Введите кол-во чисел: ');
readln( n);
for i:=1 to n do
begin
read(a);
if (a div 10 <> 0) and (a div 100 = 0) and (a mod 2 = 0) and (a mod 3 = 0) then
k:=k+1;
end;
write(k);
end.
Uses crt;
const n=5;
var
s:array[1..n] of string;
i,j,c:integer;
ss:string;
begin
writeln('Введите :');
for i:=1 to n do begin
write('s[',i,']=');
readln(s[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if s[i]>s[j] then
begin
ss:=s[i];
s[i]:=s[j];
s[j]:=ss;
end;
for i:=1 to n do
writeln(i,'.',s[i],' ');
<span>end.</span>
1) <span> Форма цилиндра С открытым верхом</span>
2) Форма прямоугольника
3) Назначение ─ игрушки
4) Материал ─ дерево