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

Question

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

Comments

var n, sum, mult: integer;begin write('Enter number: '); readln(n); sum := 0; mult := 1; while n > 0 do begin sum := sum + n mod 10; mult := mult * (n mod 10); n := n div 10 end; writeln('Sum of digits = ', sum); writeln('Multiplication of digits = ', mult); так?

Answer 1

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