Сумма цифр числа, находящихся на нечетных позициях

@norogen · Регистрация: 06.06.2013

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

Написать программу, подсчитывающую сумму цифр натурального числа, находящихся на нечетных позициях. Нумерация позиций идет слева направо.

Добавлено через 27 секунд
помогите пожалуйста решить!

@Puporev · 07.06.2013, 20:24

Pascal

uses crt;
var m,n:longint;
    k,i,s:byte;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
m:=n;
k:=0;{сколько знаков в числе}
while m>0 do
 begin
  m:=m div 10;
  k:=k+1;
 end;
k:=ord(k mod 2<>0);{нечетное к=1, четное к=0}
s:=0;
i:=0;
while n>0 do
 begin
  i:=i+1;
  if i mod 2=k then s:=s+n mod 10; {если на нечетном суммируем}
  n:=n div 10
 end;
write('Сумма цифр на нечетных местах=',s);
readln
end.

@norogen 0 / 0 / 10 Регистрация: 06.06.2013 Сообщений: 41
		1
	Сумма цифр числа, находящихся на нечетных позициях 07.06.2013, 18:25. Показов 4795. Ответов 1 Метки нет (Все метки) Написать программу, подсчитывающую сумму цифр натурального числа, находящихся на нечетных позициях. Нумерация позиций идет слева направо. Добавлено через 27 секунд помогите пожалуйста решить! 0

	07.06.2013, 20:24

Сумма цифр числа, находящихся на нечетных позициях

Решение