Строка комманд это лишнее, а все остальное подходит
Uses crt;
var a,t,ans:integer;
begin
read(a);
ans:=1;
while true do
begin
t:=a;
read(a);
if a>t then
ans:=ans+1
else
break;
end;
writeln(ans);
<span>end.</span>
А) блок
б) пуск
в) цветок
г) музыка
д) командир
е)клубника
Каждые 8 разрядов данного адреса нужно перевести в десятичную систему счисления:
<span>11001100(2) = 204(10)
10011000(2) = 152(10)
10111110(2) = 190(10)
01000111(2) = 71(10)
204.152.190.71</span>