Ответ:
Совокупность последовательных шагов повторяется по кругу
Program ip;
var s,s1:string;
i,j,x,err:integer;
f:boolean;
begin
readln(s);
i:=1; j:=1; f:=true;
while (j<4) and f do
begin
while s[i]<>'.' do
begin
s1:=s1+s[i];
inc(i);
end;
val(s1,x,err);
f:=x<256;
delete(s1,1,length(s1));
inc(j);
end;
if f then
begin
while i<=length(s1) do
begin
s1:=s1+s[i];
inc(i);
end;
f:=x<256;
end;
if f then writeln(1) else writeln(0);
<span>end.</span>
Сначала жмем на правую нижнюю кнопочку, обозначенную цифрой один на рисунке, потом на кнопочку с самолетом, обозначенную цифрой два на рисунке.
Включается и отключается одной и той же кнопкой
10111011(2) = 1*2^7+0+1*2^5+1*2^4+1*2^3+0+1*2^1+1*2^0 = 128+32+16+8+2+1 = 187(10)
//прога на Pascal`e
var
a : array[1..10] of shortint;
i, count, sum : byte;
begin
randomize;
write ('Сформированный массив: ');
for i:=1 to 10 do
begin
a[i]:=random (20);
write (a[i], '; ');
inc (sum, a[i]);
end;
writeln ();
write ('Кол-во элементов массива, значение которых превышает СА: ');
for i:=1 to 10 do
if a[i]>(sum/10) then inc (count, 1);
write (count);
end.