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

@Sheva2010 · Регистрация: 28.09.2014

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

Помогите пожалуйста сделать задачу

@CodeR · 28.09.2014, 16:57

Pascal

Var n,m,s,i:longint;
Begin
    write('Введите 5-тизначное число: ');readln(n);
    While n>0 do
    Begin
      m:=n mod 10;
      n:=n div 10;
      inc(i);
      if odd(i) then s:=s+m;
    End;
    writeln('Сумма = ',s);
    readln;
End.

@Puporev · 28.09.2014, 17:15

Pascal

1	s:=n div 10000+n div 100 mod 10+n mod 10;

@Cyborg Drone · 29.09.2014, 16:18

Pascal

var n, s: longint;
begin
  write('n = ');
  readln(n);
  n := abs(n);
  s := 0;
  while n > 0 do
    begin
      s := s + n mod 10;
      n := n div 100
    end;
  write('s = ', s);
  readln
end.

@Sheva2010 0 / 0 / 0 Регистрация: 28.09.2014 Сообщений: 10
		1
	Составить программу для вычисления суммы цифр, стоящих на нечетных позициях числа 28.09.2014, 16:14. Показов 2034. Ответов 3 Метки нет (Все метки) Помогите пожалуйста сделать задачу 0

	29.09.2014, 16:18

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

Решение