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

Question

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

Никита Крушинин Профи (687), на голосовании 1 год назад

Answer 1

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

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

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

Answer 2

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

Answer 3

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

Answer 4

 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.

Answer 5

var k,s:longint;
begin readln(k); s:=0; repeat s:=s+k mod 10; k:=k div 10 until k=0; writeln(s) end.

Answer 6

var
a,b,c,d,e: string;
x,y,z,v,cod: integer;
begin
cls;
read(a);
b:=a[1];c:=a[2];d:=a[3];e:=a[4];
val(b,x,cod);
val(c,y,cod);
val(d,z,cod);
val(e,v,cod);
writeln(x+y+z+v);
end.

Answer 7

Лев Михайлов Гуру (3452) 1 год назад

 begin 
  ReadString().Select(x -> StrToInt(x)).Sum.Print; 
end.

Answer 8

```
program sum_of_digits;

var
number, digit, sum: 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.
```