Uses crt;
const n=8;
var a:integer;
b:array[1..n] of integer;
i,k,t:integer;
begin
readln(a);
k:=1;
repeat
for i:=k to k do
b[i]:=a mod 10;
a:=a div 10;
inc(k);
until a=0;
t:=0;
for i:=k-1 downto 2 do
if (b[i]>b[i-1]) then inc(t);
if t=0 then writeln('yes') else writeln('no');
end.
Program ex;
var k,h,m: integer;
begin
write('Введите k: ');
readln(k);
h:=k div 3600;
m:=(k - h)div 60;
write('It is ',h,' hours ',m,' minutes');
end.
Я думаю, что это папка, она же каталог
1011
<u> 11
</u> 1011
<u>1011
</u>100001<u>
</u>
Запишем 32-значное двоичное число без лишних знаков. При необходимости добавляем ведущие нули
"00100110101101110000111110110110"
Разделим на 4 группы по 8 цифр и переведем их в 10ричную сс
00100110{2} = 38{10}
10110111{2} = 183{10}
00001111{2} = 15{10}
10110110{2} = 182{10}
IP = 38.183.15.182