Question

ВВЕСТИ НАТУРАЛЬНОЕ ЧИСЛО И НАЙТИ СУММУ ЕГО ЦИФР.(pascal ПОЖАЛУЙСТА ЧЕРЕЗ while)спасибо!!​

Answer 1

Ответ:

готово

Объяснение:

program summa;

var

  n, s: integer;

begin

 Write('Введите натуральное число n >> ');

 ReadLn(n);

 while n >= 10 do

 begin

   s := s + n mod 10;

   n := n div 10;

 end;

 s := s + n;

 WriteLn('Сумма цифр числа равна ', s);

end.

Answer 2

Конечно, вот пример кода на Pascal, который вводит натуральное число и находит сумму его цифр с использованием цикла while:

pascalCopy code
program SumOfDigits;

var
  num, digit, sum: Integer;

begin
  Write('Введите натуральное число: ');
  ReadLn(num);
  
  sum := 0;
  
  while num > 0 do
  begin
    digit := num mod 10;
    sum := sum + digit;
    num := num div 10;
  end;
  
  WriteLn('Сумма цифр числа: ', sum);
end.

Просто скопируйте данный код в среду программирования Pascal (например, Free Pascal) и выполните его. Он будет запрашивать натуральное число, а затем вычислит сумму его цифр с использованием цикла while.