Question

Переменная X содержит трёхзначное число, поместите в переменную сумму цифр этого числа. Язык : Pascal

Answer 1

Вот решение вашей задачи)

Answer 2

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

program SumOfDigits;

var
  X, sum, remainder: integer;

begin
  // Ввод трехзначного числа
  write('Введите трехзначное число: ');
  readln(X);

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

// Инициализация суммы
  sum := 0;

// Вычисление суммы цифр
  sum := sum + X mod 10; // Получаем последнюю цифру
  X := X div 10; // Убираем последнюю цифру

sum := sum + X mod 10; // Получаем следующую цифру
  X := X div 10; // Убираем следующую цифру

sum := sum + X; // Осталась только первая цифра

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

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