Question

Сумма всех цифр в числе вводимых пользователем, программа без while . Паскаль , пример : число 127 значит сумма 10

Answer 1

Чтобы найти сумму всех цифр в числе, введенном пользователем, без использования цикла `while`, можно воспользоваться циклом `for` и преобразованием числа в строку. Вот пример кода на языке Паскаль:

program SumOfDigits;
var
  number, sum, digit: integer;
begin
  sum := 0;
  write('Введите число: ');
  readln(number);
  
  // Преобразуем число в строку
  str(number, numberStr);
  
  // Проходим по каждой цифре в строке и суммируем их
  for digit in 1 to length(numberStr) do
  begin
    sum := sum + ord(numberStr[digit]) - ord('0');
  end;
  
  writeln('Сумма всех цифр в числе: ', sum);
end.

В этом примере мы считываем число от пользователя и преобразуем его в строку с помощью функции `str()`. Затем мы проходим по каждой цифре в строке с помощью цикла `for` и суммируем их, преобразуя каждую цифру из символа в число с помощью функции `ord()`. Результат выводится на экран с помощью функции `writeln()`.

Примечание: В данном ответе приведен пример кода на языке Паскаль, так как в вопросе был указан пример на этом языке. Однако, алгоритм суммирования цифр в числе без использования цикла `while` может быть реализован на других языках программирования, таких как C++, JavaScript и других.