Question

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

Answer 1

Ответ:

Var sum, a, a1, a2, a3:integer;

Begin

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

Readln(a);

a1:=a div 100 ;

a2:=(a div 10) mod 10 ;

a3:=a mod 10;

sum:=a1+a2+a3;

Writeln(sum);

End.

Answer 2

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

pascalCopy code
program SumOfDigits;

var
  num, digit, sum: integer;

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

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

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

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

  sum := sum + num; // Добавляем последнюю оставшуюся цифру числа

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

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