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