Question

ПОМОГИТЕ ПЛИЗЗ Дано трехзначное число. Найдите сумму его цифр. Входные данные Вводится трехзначное число. Выходные данные Выведите ответ на задачу. Примеры входные данные 179 выходные данные 17 В паскаль

Answer 1

Var n: integer;
begin
read(n);
write(n div 100 + n div 10 mod 10 + n mod 10)
end.

Answer 2

Конечно, я могу помочь вам решить эту задачу. Вам нужно найти сумму цифр трехзначного числа, верно?

Вот пример решения задачи на языке Паскаль:

pascalCopy code
program SumOfDigits;
var
  number, digit, sum: integer;
begin
  write('Введите трехзначное число: ');
  readln(number);
  
  sum := 0;
  digit := number;

  while digit > 0 do
  begin
    sum := sum + digit mod 10;
    digit := digit div 10;
  end;
  
  writeln('Сумма цифр числа: ', sum);
end.

Эта программа запрашивает трехзначное число, а затем использует цикл while для извлечения каждой цифры числа и их сложения в переменную sum. В конце программа выводит сумму цифр.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, пожалуйста, не стесняйтесь задавать.