Var n,i:integer; f:longint; s:real;
begin
write('n = ');
readln(n);
f:=1; s:=2;
for i:=2 to n do
begin
f:=f*i;
s:=s+1/f;
end;
writeln('s = ',s);
end.
Пример:
n = 10
s = 2.71828180114638
// пишу на плюсах, думаю поймёте
int k;
for(int i=0;i<30;i++){
int x;
cin >> x;
if(x%3==0 && x%10==1)
k++:
}
cout << k;
79 из десятичной в двоичную 1001111
131 из десятичной в двоичную 10000011
<span>101011 из двоичной в десятичную 43
</span><span>110110 из двоичной в десятичную </span>54