Question

Программирование PascalABC Ввести целое число и найти его сумму цифрПо типу: while условие doПеременные: I,n​

Answer 1

var n, i : integer;

begin

i := 0;

readln(n);

n := abs(n);

while n > 0 do

begin

i := i + n mod 10;

n := n div 10;

end;

writeln(i);

end.

Answer 2

Для решения задачи по нахождению суммы цифр введенного целого числа в PascalABC с использованием цикла `while`, вам потребуется две переменные: `n` для хранения введенного числа и `sum` для хранения суммы его цифр. Давайте рассмотрим шаги, которые нужно выполнить:

1. Сначала объявите переменные `n` и `sum` и прочитайте введенное целое число в переменную `n`.

var
  n, sum: integer;
begin
  write('Введите целое число: ');
  readln(n);
  sum := 0; // Инициализируем сумму нулем
end.

2. Затем, вы можете использовать цикл `while`, чтобы извлекать цифры числа `n`, складывать их с переменной `sum`, и уменьшать `n` до тех пор, пока `n` не станет равным нулю.

while n <> 0 do
begin
  sum := sum + n mod 10; // Получаем последнюю цифру числа и добавляем её к сумме
  n := n div 10;       // Удаляем последнюю цифру из числа
end;

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

writeln('Сумма цифр введенного числа: ', sum);

Полный код программы:

var
  n, sum: integer;
begin
  write('Введите целое число: ');
  readln(n);
  sum := 0; // Инициализируем сумму нулем

while n <> 0 do
  begin
    sum := sum + n mod 10; // Получаем последнюю цифру числа и добавляем её к сумме
    n := n div 10;       // Удаляем последнюю цифру из числа
  end;

writeln('Сумма цифр введенного числа: ', sum);
end.

Этот код позволит вам найти сумму цифр введенного целого числа с использованием цикла `while` в PascalABC.