Question

Запросить у пользователя строку S, состоящую из цифр. Преобразовать каждый символ – цифру в число. Найти сумму и произведение полученных чисел. Вывести на чистый экран строку S, ее длину, сумму и произведение.

Answer 1

var
  s: string;
  err, k, sum, i: integer;
  p: real;
 
begin
  readln(s);
  sum := 0;
  p := 1;
  for i := 1 to length(s) do
    if s[i] in ['0'..'9'] then
    begin
      val(s[i], k, err);
      p := p * k;
      sum := sum + k;
    end;
  writeln('Сумма цифр: ', sum);
  writeln('Произведение цифр: ', p);
end.