Вопрос по информатике:
Исправьте пожалуйста ошибку
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.
- 24.01.2017 16:07
- Информатика
- remove_red_eye 15752
- thumb_up 15
Ответы и объяснения 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.
- 25.01.2017 09:43
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.