Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Помогите решить задачу!
С клавиатуры вводятся натуральные числа. Признак конца ввода – отрицательное число. Посчитать сумму всех нечетных чисел.

Ответ оставил Гость

var n, sum, mult: integer;beginwrite(Enter number: );readln(n);sum := 0;mult := 1;while n > 0 do beginsum := sum + n mod 10;mult := mult * (n mod 10);n := n div 10end;writeln(Sum of digits = , sum);writeln(Multiplication of digits = , mult);