Question

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

Answer 1

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

program SumOfDigits;

var
  number, digit, sum: integer;

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

// Проверка на четырехзначность числа
  if (number < 1000) or (number > 9999) then
  begin
    writeln('Пожалуйста, введите четырехзначное число.');
    exit;
  end;

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

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

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

end.

Программа просит пользователя ввести четырехзначное число, затем с помощью цикла while она находит сумму его цифр и выводит результат. Также добавлена проверка на четырехзначность введенного числа.