Исправьте пожалуйста ошибку program mimi;var n, p, s:integer;beginread(n);count := 0;write n больше 0 do beginn := n div10;count := count +1end;n := abs(n);end.Задание:Ввести натуральное число и найти сумму и произведение его...
Исправьте пожалуйста ошибку
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.
Гость
Ответ(ы) на вопрос:
ГостьЯ б написала так, в цикл 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.
Не нашли ответ?
Похожие вопросы