Вычислить сумму цифр четных разрядов

@bigsergoya · Регистрация: 03.11.2012

Author24 — интернет-сервис помощи студентам

"Вычислить сумму цифр четных разрядов и сумму цифр нечетных разрядов в заданном целом числе (разряды начинаются нумероваться с нуля)"
Помогите пожалуйста, целый день вчера просидел, нифига не получается... Мне непонятно само тело задачи, выполнение основного действия

@Puporev · 03.11.2012, 11:06

Pascal

uses crt;
var n:longint;
    sc,sn,c,k:byte;
begin
clrscr;
write('Введите целое число n=');
readln(n);
n:=abs(n);
sn:=0;
sc:=0;
k:=0;
while n>0 do
 begin
  c:=n mod 10;
  k:=k+1;
  if odd(k) then sn:=sn+c
  else sc:=sc+c;
  n:=n div 10;
 end;
writeln('Сумма нечетных цифр=',sn);
writeln('Сумма четных цифр=',sc);
readln
end.

@bigsergoya · 04.11.2012, 20:14 **[ТС]**

Большое спасибо!

@bigsergoya 0 / 0 / 0 Регистрация: 03.11.2012 Сообщений: 6
		1
	Вычислить сумму цифр четных разрядов 03.11.2012, 10:18. Показов 2502. Ответов 2 Метки нет (Все метки) "Вычислить сумму цифр четных разрядов и сумму цифр нечетных разрядов в заданном целом числе (разряды начинаются нумероваться с нуля)" Помогите пожалуйста, целый день вчера просидел, нифига не получается... Мне непонятно само тело задачи, выполнение основного действия 0

@bigsergoya 0 / 0 / 0 Регистрация: 03.11.2012 Сообщений: 6
	04.11.2012, 20:14 [ТС]	3
	Большое спасибо! 0

Опции темы

Вычислить сумму цифр четных разрядов

Решение