Помогите пожалуйста с задачей по информатике Дано число. Найти сумму и произведение его...

Question

Помогите пожалуйста с задачей по информатике Дано число. Найти сумму и произведение его цифр.

Answer 1

uses

SysUtils;

var

num: String;

sum, mult, i: Integer;

begin

sum := 0;

mult := 1;

ReadLn(num);

for i := 1 to Length(num) do

begin

sum := sum + StrToInt(num[i]);

mult := mult * StrToInt(num[i]);

end;

WriteLn('Сумма - ', sum);

WriteLn('Произведение - ', mult)

end.

Comments

Спасибо)

Answer 2

Решение, который дал другой пользователь, слишком сложное. Я могу предложить альтернативный вариант, который будет гораздо проще в понимании.

Var a,s,s1:integer;

Begin

 write('Введите число -> ');

 readln(a);

 s1:=1;

 while a>0 do

 begin

   s:=s+(a mod 10);

   s1:=s1*(a mod 10);

   a:=a div 10;

 end;

 writeln('Сумма цифр числа равна -> ',s);

 writeln('Произведение цифр числа равно -> ',s1);

End.

Comments

Спасибо большое!!!А там где вы написали введите число, это так и писать или нужно какое-то число написать?

---

Просто так оставьте. Если вам это будет каким-то образом мешать, то вы можете избавиться от этой строчки. Эта строка играет чисто графическую роль, на ход работы программы не влияет. Паскаль выводит сообщение "Введите число -> ", затем строка readln(a); считывает то, что введёт пользователь.

---

Хорошо, еще раз спасибо)