program SumOfDigits;
var
num, sum: integer;
begin
writeln('Введите четырехзначное число:');
readln(num);
sum := 0;
sum := sum + num mod 10;
num := num div 10;
sum := sum + num mod 10;
num := num div 10;
sum := sum + num mod 10;
num := num div 10;
sum := sum + num;
writeln('Сумма цифр числа: ', sum);
readln;
end.
В этой программе мы используем операторы mod и div, чтобы получить последнюю цифру числа и удалить ее из числа, соответственно. Затем мы повторяем этот процесс три раза, чтобы получить сумму всех цифр числа. Результат выводится на экран. program sum_of_digits;
var
number, sum, digit: integer;
begin
writeln('Введите четырехзначное число: ');
readln(number);
sum := 0;
digit := number div 1000;
sum := sum + digit;
number := number mod 1000;
digit := number div 100;
sum := sum + digit;
number := number mod 100;
digit := number div 10;
sum := sum + digit;
number := number mod 10;
digit := number;
sum := sum + digit;
writeln('Сумма цифр в числе равна: ', sum);
readln;
end.