Цитата:
Сообщение от kulisk
1. Отсчет идет слева.
2. С единицы.
|
Слева, говорите? Т.е. со старших порядков? Тогда несколько сложнее (справа было бы существенно проще). Ну ладно, слева так слева:
Код:
Var
N:LongInt;
Num:Byte;
Sum1,Sum2:Word;
BEGIN
Num:=0;
Sum1:=0;
Sum2:=0;
Write('N= ');
ReadLn(N);
Repeat
Num:=Num+1;
If (Num mod 2)=1 then
Sum1:=Sum1+(N mod 10)
else
Sum2:=Sum2+(N mod 10);
N:=N div 10;
Until N=0;
WriteLn('Number of figures= ',Num);
Write('Sum of figures on odd places= ');
If (Num div 2)=1 then
WriteLn(Sum1)
else
WriteLn(Sum2);
ReadLn;
END.