Сложноооо невозможно это нереальноооооооооооооооооооо прости но я незнаю
Var i:integer;
begin
for i:=1 to 30 do
if i mod 2=0 then write(i,' ');
writeln;
for i:=10 to 20 do
if i mod 2=1 then write(i,' ');
end.
101(x) = 1*x^2+0*x^1+1
101(x+1) = (x+1)^2+1
x^2+1 + 13 = (x+1)^2+1
x^2 + 14 = (x+1)^2+1
(x+1)^2 -13- x^2 = 0
x^2 + 2x + 1 - 13 - x^2 =0
2x = 12
x = 6
<span>
47 + 13 = 50 </span>