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

[redfox]

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

 

[Dar]

Program n6;
var a : integer;
Begin
WriteLn "Сами считайте, или слабо?";
End.
Если человек повёлся на слабо, он посчитает, и как бы программа помогла вычислить результат.

 

[nbik8]

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, чтобы получить последнюю цифру числа и удалить ее из числа, соответственно. Затем мы повторяем этот процесс три раза, чтобы получить сумму всех цифр числа. Результат выводится на экран.

 

[-_-a-ha-_-]

Чтобы отбросить последнюю цифру, поделите число на 10 через div.
Чтобы оставить только последнюю цифру, поделите число на 10 через mod.

1235 div 10 = 123 (отбросили последнюю цифру)
1235 mod 10 = 5 (осталась только последняя цифра)

А теперь подумайте, что нужно сделать с исходным числом вроде 1235, чтобы извлечь из него каждую цифру.

 

[luk]

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.