Программа на PascalABC.NET (Подсчёт не только 4 значного числа):
var n, sum, proizv: integer;
begin
sum := 0;
proizv := 1;
write('Введите число: ');
read(n);
while n <> 0 do begin
sum := sum + n mod 10;
proizv := proizv * (n mod 10);
n := n div 10
end;
writeln('Сумма цифр числа: ', sum);
writeln('Произведение цифр числа: ', proizv);
end.
Программа на PascalABC.NET (Подсчёт не только 4 значного числа):
var n, sum, proizv: integer;
begin
sum := 0;
proizv := 1;
write('Введите число: ');
read(n);
while n <> 0 do begin
sum := sum + n mod 10;
proizv := proizv * (n mod 10);
n := n div 10
end;
writeln('Сумма цифр числа: ', sum);
writeln('Произведение цифр числа: ', proizv);
end.