Var n,i,k,s1,s2:integer;
begin
write('n='); readln(n);
s1:=n; s2:=0;
for i:=1 to n-1 do
begin
write('k',i,'='); readln(k);
s1:=s1+i; s2:=s2+k;
end;
writeln('Потерялась карточка ',s1-s2);
<span>end.
Пример:
n=5
k1=1
k2=3
k3=4
k4=5
<span>Потерялась карточка 2
</span></span><span><span>
</span></span>
Порядок перемещения:
0. 0 (начальное положение)
1. 0+3=3
2. 3-2=1 - нечетное
3. 1+4=4
4. 4+3=7
5. 7-2=5 - нечетное
6. 5+3=8
7. 8-2=6
8. 6-2=4 - четное
9. Закрасить
Итого закрашена 1 точка, ответ: 1.
Как сделать - что? перевести в двоичную сис-му счисления, или куда-то в другую?
46А (16)=1001010 (2)=112(8)
155(8)=6D (16)=1101101(2)
Var
m:integer;
Begin
Write('m = ');
ReadLn(m);
if m>= 4 then m:=m*m-8
else m:=m+2;
WriteLn('C = ',m)
End.
Procedure ABCD(Const A:real; Var B,C,D:real);
Begin
B:=A*A;
C:=B*A;
D:=C*A;
End;
Var
A,B,C,D:real;
Begin
Write('A = ');ReadLn(A);
ABCD(A,B,C,D);
WriteLn(A,' ',B,' ',C,' ',D);
End.
Пример вычислений для 10-ти разных чисел:
A = 1
1 1 1 1
A = 2
2 4 8 16
A = 3
3 9 27 81
A = -10
-10 100 -1000 10000
A = 3.141592
3.141592 9.869600294464 31.0062573282858 97.4090099724839
A = 111
111 12321 1367631 151807041
A = 6.66
6.66 44.3556 295.408296 1967.41925136
A = -2.718121812
-2.718121812 7.38818618487016 -20.0819900202127 54.5852951023063
A = 789456123
789456123 6.23240970142191E+17 4.92021399983213E+26 3.8842930686378E+35
A = 123456789
123456789 1.52415787501905E+16 1.88167637178915E+24 2.32305722798259E+32