Question

Информатика
Повторить материал из файла. Написать
программу: С Клавиатуры вводиться целое
значное n-значное число, вывести на экран
сумму нечетных цифр и произведение
четных цифр этого числа. Ребят, помогите, пожалуйста, написать эту программу! я в информатике не разбираюсь!(​

Answer 1

var

 n, i, sum, pr: integer;

begin

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

 Readln(n);

 pr := 1;

 while n <> 0 do

 begin

   i := n mod 10;

   if i mod 2 <> 0 then sum += i else pr *= i;

   n := n div 10

 end;

 Writeln('Сумма нечетных цифр: ', sum);

 Writeln('Произведение четных цифр: ', pr);

end.