Var a,b,c,e:longint;
begin
writeln('введите число');
readln(a);
for b:=a downto 0 do begin
c:= a mod 10;
a:=a div 10;
e:=e+c;
end;
writeln('сумма цифр числа => ',e);
end.
Вот, например, что нашла. 1,2,3 - уже не др.русь, но вдруг надо. а 4,5 рисунок история развития плечевой одежды в др.руси!
Последовательность чисел Фибоначчи:
1, 1, 2, 3, 5, 8, 13, 21, 34
Т.е., каждый следующий член определяется как сумма двух предыдущих.
Число 39 - это 34 и 5, т.е. сумма 9-го и 5-го чисел.
следовательно в Фибоначчиевой СС 39 это 10000000 + 1000 = 10001000
Если Вы имеете в виду
A+not(A*B) + not(A*C), то используя законы Моргана получаем:
A + not A + not B + not A + not C = A + not A + not B + not C =
= 1+not(B*C) = 1
Если это не так, то:
A+notA*B+notA*C = A+notA*(B+C)