Question

Написать программу на языке Pascal: Дано натуральное трёхзначное число. Найти сумму цифр этого числа.

Answer 1

var sum,n:integer;

begin

writeln('Введите трехзначное число');

readln(n);

sum:=(n div 100)+(n div 10 mod 10)+(n mod 10);

writeln('Сумма цифр числа = ',sum);

end.

Объяснение построчно

var sum,n:integer; // Просим компьютер выделить в памяти переменные с именем sum и n типа integer(целые числа).

begin // Начало 'тела' программы

writeln('Введите трехзначное число'); // Выводим на экран текст 'Введите трехзначное число'

readln(n); // Вводим число с клавиатуры и записываем его в переменную n

sum:=(n div 100)+(n div 10 mod 10)+(n mod 10); // Суммируем цифры в нашем числе и записываем их сумму в переменную sum.

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

end. // Конец 'тела' программы

Answer 2

Конечно! Вот программа на языке Pascal, которая находит сумму цифр натурального трёхзначного числа:

pascalCopy code
program SumOfDigits;

var
  number, digit1, digit2, digit3, sum: integer;

begin
  // Вводим натуральное трёхзначное число
  writeln('Введите натуральное трёхзначное число:');
  readln(number);

  // Проверяем, что число является трёхзначным
  if (number < 100) or (number > 999) then
  begin
    writeln('Введенное число не является трёхзначным.');
    exit; // Выходим из программы, так как число некорректно
  end;

  // Находим цифры числа
  digit1 := number div 100;           // Получаем первую цифру (сотни)
  digit2 := (number div 10) mod 10;   // Получаем вторую цифру (десятки)
  digit3 := number mod 10;           // Получаем третью цифру (единицы)

  // Находим сумму цифр числа
  sum := digit1 + digit2 + digit3;

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

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