Девятеричная система счисления, я не знаю, как их решать, только перебором... Ну, написал программку для быстрого перебора, надеюсь, пригодится с будущем) Нужна?
<span />
Program n_1;
var n,count:integer;
Begin
Write('введите натуральное полож.число n -');
read(n);
count:=0;
While n>0 do
Begin
n:=n div 10;
count:=count+1;
end;
write(count);
End.
Попробуй эту программу
52+34=86
86=1010110
Как я решал:
86:2остаток 0
43:2 остаток 1
21:2 остаток 1
и т.д. до
2:2 остататок 0
const k=10;
var i,n,m: integer;
a: array[1..k] of integer;
begin
n:=0;
m:=0;
for i:=1 to k do
a[i]:=random(21);
for i:=1 to k do
write(a[i],' ');
writeln();
for i:=1 to k do
begin
if ((a[i] mod 2 =0) and (a[i]<>0)) then n:=n+1;
if (a[i] mod 2 <> 0) then m:=m+1;
end;
writeln('Четных : ',n,' Нечетных : ',m);
end.
S:=0
For i:=1 to 10
S:=s+2*i
i:=1
S:=o+2*1=2
i:=2
S:=2+2*2=6
i=3
S=6+2*3=12
i=4
S=12+2*4=20
i=5
S=40+2*5=50
i=6
S=50+2*6=62
i=7
S=63+2*7=77
i=8
S=77+2*8=93
i=9
S=93+2*9=111
i=10
S=111+2*10=131
Ответ=131