Помогите составить программу в паскале! Дано четырехзначное число. Найти а) сумму его...

Question

Помогите составить программу в паскале! Дано четырехзначное число. Найти а) сумму его цифр, б) произведение его цифр.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadInteger('введите число a=').ToString();
writeln('сумма цифр: ',a[1].ToDigit()+a[2].ToDigit()+a[3].ToDigit()+a[4].ToDigit());
write('произведение: ',a[1].ToDigit()*a[2].ToDigit()*a[3].ToDigit()*a[4].ToDigit());
end.

Answer 2

Var
sum, com, n:integer;
begin
  Read(n);sum:=0;com:=1;
  while (n > 0) do begin
    sum:= sum + n mod 10;
    com:= com * (n mod 10);
    n:= n div 10;
  end;
  Writeln('Сумма -> ', sum);
  Writeln('Произведение -> ', com);
end.

Пример:
1234
Сумма -> 10
Произведение -> 24