<span>
Program N;
Var a,n,i,s: integer;
Begin
Writeln('n=');Readln(n);
s:=0;
For i:=1 to n do
Begin
a[i]:=random(100);
write(a:4);
end;
writeln;
writeln('izmenenni massiv');
for i:=1 to n do begin
If (a mod 2)=0 then
a:=0
else
a:=1;
write(a:4);
end;
readln;
End.</span>
Program n1;
var k,m,n: integer;
begin
readln(k,m,n);
if (k mod 2<>0) and (m mod 2<>0) and (n mod 2<>0) then write('да') else write('нет');
end.
S=2
k=3
s=2+k(3)+2=7
Далее
S=7
k=4
s=2+k(4)+7=13
Далее
s=13
k=5
S=2+k(5)+13=20
Ответ S=20
Пусть х - основание системы счисления
Составляем уравнение
1*x^2+2 = 2*(1*x+2)+1
x^2 - 2x + 2-4-1 = 0
x^2 - 2x - 3 = 0
корни 3 и -1
Значит х = 3 (больше 0)