Question

Дано натуральное n > 100. Чему равна сумма его цифр? В среде Паскаль. Помогите пожалуйста

Answer 1

program a1;

var              

i,n,s:integer;

begin

assign(input,'input.txt');

assign(output,'output.txt');

reset(input);

rewrite(output);

readln(n);

if n <= 100 then writeln('Неверный ввод')

else begin

s := 0;

while (n > 0) do begin

s := s + n mod 10;

n := n div 10;

end;

writeln (s);

end;

close(input);

close(output);

end.

Answer 2

Вы можете вычислить сумму цифр натурального числа n в среде Pascal, разделяя число на отдельные цифры и складывая их. Вот как это можно сделать:

pascalCopy code
program SumOfDigits;

var
  n, sum, digit: integer;

begin
  // Вводим значение n
  writeln('Введите натуральное число больше 100:');
  readln(n);
  
  // Проверяем, что n больше 100
  if n <= 100 then
  begin
    writeln('Число должно быть больше 100.');
    exit; // Завершаем программу
  end;
  
  // Инициализируем сумму
  sum := 0;

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

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

Эта программа сначала запрашивает у пользователя ввод натурального числа n, затем проверяет, что оно больше 100. После этого она вычисляет сумму цифр числа n, разделяя его на цифры и складывая их. Результат выводится на экран.