Исправьте пожалуйста ошибку program mimi;var n, p, s:integer;beginread(n);count :=...

Question

Исправьте пожалуйста ошибку
program mimi;
var n, p, s:integer;
begin
read(n);
count := 0;
write n > 0 do begin
n := n div10;
count := count +1
end;
n := abs(n);
end.



Задание:
Ввести натуральное число и найти сумму и произведение его цифр. Пример:Введите натуральное число:12345
Сумма цифр 15. Произведение цифр 120.

Answer 1

Я б написала так, в цикл while добавим счётчик суммы и произведения, s и p соответственно (Первоначально, s := 0; p := 1). Считаем всё это, пока n > 0. Затем в конце просто выводим сумму и произведение)
program mimi;
var n, p, s:integer;
begin
read(n);
s := 0;
p := 1;
while n > 0 do begin
s := s + n mod 10;
p := p*(n mod 10);
n := n div 10;
end;
writeln(s);
writeln(p);
end.