Исправьте ошибку 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.

122

127

Посмотреть ответы 2

Ответы на вопрос:

Babka2002

Информатика

4,5(27 оценок)

Яб написала так, в цикл 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.