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

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

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

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

А теперь подумайте, что нужно сделать с исходным числом вроде 1235, чтобы извлечь из него каждую цифру.
Scrit 56 Антипов Мастер (1345) 1 месяц назад
Program n6;
var a : integer;
Begin
WriteLn "Сами считайте, или слабо?";
End.
Если человек повёлся на слабо, он посчитает, и как бы программа помогла вычислить результат.
Антон Михайлов Гуру (2597) 1 месяц назад
 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, чтобы получить последнюю цифру числа и удалить ее из числа, соответственно. Затем мы повторяем этот процесс три раза, чтобы получить сумму всех цифр числа. Результат выводится на экран.
Всемирный Целитель Мастер (2192) 1 месяц назад
 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 Искусственный Интеллект (264297) 1 месяц назад
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.
Иессив Просветленный (45678) 1 месяц назад
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.
Лев Михайлов Мастер (2430) 1 месяц назад
 begin 
ReadString().Select(x -> StrToInt(x)).Sum.Print;
end.
Андрей Гуру (3562) 1 месяц назад
```
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.
```
Похожие вопросы