Найти сумму и произведение полученных чисел. Вывести на чистый экран строку S, ее длину, сумму и произведение

@Shofilgard · Регистрация: 20.11.2018

Author24 — интернет-сервис помощи студентам

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

@ZX Spectrum-128 · 21.11.2018, 12:52

Pascal

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.

@FFPowerMan · 21.11.2018, 12:57

Сообщение от Shofilgard

Преобразовать каждый символ – цифру в число.

- а как преобразовать? Символ нужно преобразовать в его ASCII-код?

@Shofilgard 0 / 0 / 0 Регистрация: 20.11.2018 Сообщений: 16
		1
	Найти сумму и произведение полученных чисел. Вывести на чистый экран строку S, ее длину, сумму и произведение 21.11.2018, 12:37. Показов 5975. Ответов 2 Метки нет (Все метки) Запросить у пользователя строку S, состоящую из цифр. Преобразовать каждый символ – цифру в число. Найти сумму и произведение полученных чисел. Вывести на чистый экран строку S, ее длину, сумму и произведение. 0

@FFPowerMan 2105 / 1192 / 496 Регистрация: 11.10.2018 Сообщений: 6,000
	21.11.2018, 12:57	3
	Сообщение от Shofilgard Преобразовать каждый символ – цифру в число. - а как преобразовать? Символ нужно преобразовать в его ASCII-код? 0