Var
i, n: integer;
a, s: real;
begin
readln(n);
a := 1;
s := a;
for i := 2 to n do
begin
a := a * -(i - 1) / i;
s := s + a;
end;
writeln(s:10:6);
end.
От 0до 255-254 либо нет потомучто не получается как у тебя ответы
1 байт - 8 бит т. е от 00000000=0 до 11111111=255,
все что между ними, - это разные переборы нулей и единиц ни разу не повторяющихся, например 01001100 или 00001111 и т. д. таких переборов как раз 255, 00000001=1 00000010=2 00000011=3 00000100=4 и т. д. 11111110=254
Могу на C++ сделать
{
int N;
cin>>N;
if(N%11==0)
cout<<1;
else cout<<0;
return 0;
}