Question

Дано четырехзначное число. Найти: сумму его цифр.Написать программу на Pascal'е

Answer 1

var n,s:integer;
x1,x2,x3,x4:integer;
begin
write('Vvedite N = ');
read(n);
x1:=n div 1000;
x2:=n mod 1000 div 100;
x3:=n mod 100 div 10;
x4:=n mod 10 div 1;
s:=x1+x2+x3+x4;
writeln(s);
end.

Answer 2

Для нахождения суммы цифр четырехзначного числа в Pascal можно использовать следующую программу:

program SumOfDigits;
var
  number, sum, digit: integer;
begin
  write('Введите четырехзначное число: ');
  readln(number);
  
  sum := 0;
  digit := number mod 10; // получаем последнюю цифру числа
  sum := sum + digit; // добавляем последнюю цифру к сумме
  
  number := number div 10; // удаляем последнюю цифру числа
  
  digit := number mod 10; // получаем следующую цифру числа
  sum := sum + digit; // добавляем следующую цифру к сумме
  
  number := number div 10; // удаляем следующую цифру числа
  
  digit := number mod 10; // получаем следующую цифру числа
  sum := sum + digit; // добавляем следующую цифру к сумме
  
  number := number div 10; // удаляем следующую цифру числа
  
  digit := number mod 10; // получаем первую цифру числа
  sum := sum + digit; // добавляем первую цифру к сумме
  
  writeln('Сумма цифр числа: ', sum);
end.

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

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

Источники: -(https://www.you.com) (ABC Pascal) -(https://www.you.com)