Задание 6 Параграф 24 ГДЗ Семакин 8 класс (Информатика)

Ниже вариант решения задания из учебника Семакин, Залогова 8 класс, Просвещение:

6. Составьте программу, вычисляющую сумму и произведение цифр натурального числа.

program task_6;

var

n, p, s: integer;

begin

write(taskВведи число:task);

readln(n);

p := 1; s := 0;

while n 0 do

begin

p := p * (n mod 10);

s := s + (n mod 10);

n := n div 10

end;

writeln(taskПроизведение цифр > > task, p, task Сумма цифр > > task, s)

end.