Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

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

Никита Крушинин Профи (664), на голосовании 10 месяцев назад
Голосование за лучший ответ
Андрей Панарин Искусственный Интеллект (224237) 11 месяцев назад
Чтобы отбросить последнюю цифру, поделите число на 10 через div.
Чтобы оставить только последнюю цифру, поделите число на 10 через mod.

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

А теперь подумайте, что нужно сделать с исходным числом вроде 1235, чтобы извлечь из него каждую цифру.
Scrit 56 Антипов Гуру (4974) 11 месяцев назад
Program n6;
var a : integer;
Begin
WriteLn "Сами считайте, или слабо?";
End.
Если человек повёлся на слабо, он посчитает, и как бы программа помогла вычислить результат.
Антон Михайлов Гуру (2613) 11 месяцев назад
 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, чтобы получить последнюю цифру числа и удалить ее из числа, соответственно. Затем мы повторяем этот процесс три раза, чтобы получить сумму всех цифр числа. Результат выводится на экран.
Беспрекословный Эксперт Мыслитель (5543) 11 месяцев назад
 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.
Krab Bark Искусственный Интеллект (283030) 11 месяцев назад
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.
Иессив Оракул (58780) 11 месяцев назад
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.
Лев Михайлов Гуру (2902) 11 месяцев назад
 begin 
ReadString().Select(x -> StrToInt(x)).Sum.Print;
end.
Андрей Мыслитель (6129) 11 месяцев назад
```
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.
```
Похожие вопросы