Question

Запишите на языке Pascal программу, которая для натурального трехзначного числа определяет сумму его цифр.​

Answer 1

Ответ:

var num: integer;

begin

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

readln(num);

writeln('Сумма цифр равна: ',(

(num div 100) + //Сотни

((num div 10) mod 10))+  //Десятки

(num mod 10)); // Единицы

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.

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