Помогите,пожалуйста Нужно составить в Паскале

Question

Помогите,пожалуйста Нужно составить в Паскале

---

Answer 1

Ответ:

pascal

Объяснение:

var n, s, k:integer;

begin

 Write('Введите число: ');

 ReadLn(n);

 while n > 0 do

 begin

   if (n mod 2 = 1) then s := s + n mod 10 else k:=1;

   n := n div 10;

 end;  

 if k > 0 then WriteLn(s) else WriteLn('0');

end.

Comments

Почему при вводе числа он не выводит сумму нечётных чисел?

---

Например я ввожу 356, но программа выводит число 6. Но сумма же далеко не6

---

Если ввести 135, то выведет 0,это верно

---

Но сумму нечётных не выводит

---

сорри... задание запутанное, я четные суммировал. исправил...

---

Спасибо

---

Помогите ещё с одним заданием пожалуйста, сейчас добавила