1)32
2)1024
3)512
4)1024
5)8
6)x=14
7)x=20
8)x=11
Еугйжг рз жзогзх жсдуг=<span> </span><span>вражда не делает добра
каждая буква в этих словах сдвинется на 3 назад в обычном алфавите
е=в
у=р
г=а
итд</span>
Var n,i:integer; s:real;
begin
readln(n);
s:=0;
for i:=0 to n do s:=s+1/(2*i+1);
writeln('s = ',s);
end.
Пример:
5
<span>s = 1.878210678210678e+00</span>
Var
s1,s2 : String;
n,i : Integer;
Begin
n:=0;
Readln(s1);
Readln(s2);
For i:=1 to Length(s1) do If Pos(s1[i],s2)=0 then Inc(n);
Writeln(n);
end.