Вычислить сумму цифр пятизначного числа

@Cкорпион · Регистрация: 27.10.2012

Студворк — интернет-сервис помощи студентам

Входные данные:
Во входном потоке задано единственное целое положительное пятизначное число

Выходные данные:
В выходной поток вывести единственное целое число.

Пример входного файла (input.txt):
49626
Пример выходного файла (output.txt):
27

Вот что у меня:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a : integer;
s, a1, a2, a3, a4, a5, a6, a7 : integer;
begin
read (a);
a1:=a div 10000;
a2:= a div 1000;
a3:= a2 div 10;
a4:= a2 mod 10;
a5:= a mod 100;
a6:= a5 div 10;
a7:= a5 mod 10;
s:=a1+a3+a4+a6+a7;
write (s);
end.

Как исправить?

@CodeR · 23.11.2012, 12:15

А вы терь возьмите листок бумаги и трассируйте и увидите где ошибка...
А вообще лучше использовать цикл

Pascal
1
2
3
4
5
6
n:=abs(n);
While n>0 do
Begin
   s:=s+n mod 10;
   n:=n div 10;
End;

@Mariam Dobara · 21.11.2014, 18:48

Помогите, пожалуйста, как без цикла правильно написать программу?

@Puporev · 21.11.2014, 18:55

Pascal
1
s:=n div 10000+n div 1000 mod 10+ndiv 100 mod 10+n div 10 mod 10+n mod10;

@Mariam Dobara · 21.11.2014, 20:03

Извиняюсь, но пишет код ошибки 201. Не подскажете, случайно, в чем дело? Буду благодарна

@кот Бегемот · 21.11.2014, 20:10

а так?

Pascal
1
s:=n div 10000+n div 1000 mod 10+n div 100 mod 10+n div 10 mod 10+n mod 10;

@Puporev · 21.11.2014, 20:14

Сообщение от Mariam Dobara

Извиняюсь, но пишет

Так могла бы и заметить что пробел пропустил когда печатал

Pascal
1
+n div 100 mod 10

Совсем мозгов нету...

@Mariam Dobara · 21.11.2014, 20:17

Естественно я не пропускала пробелы. Все было написано с пробелами. Не стоит так быстро делать выводы.
Все равно выдает ошибку.

@Puporev · 21.11.2014, 20:21

Ну выводы-то нормальные, раз такой примитив написать не можешь.

Pascal
1
2
3
4
5
6
7
var n,s:integer;
begin
writeln('Введите 5-значное число n=');
readln(n);
s:=n div 10000+n div 1000 mod 10+n div 100 mod 10+n div 10 mod 10+n mod 10;
wtite('Сумма цифр=',s);
end.

@Mariam Dobara · 21.11.2014, 20:24

Эх, если бы я изучала этот язык программирования. Пытаюсь разбираться сама, как могу. Извиняюсь, если что не так сказала.
В ошибке своей разобралась. Там целый тип не integer, а longint.
Спасибо огромное за помощь.

@Puporev · 21.11.2014, 20:26

Сообщение от Mariam Dobara

Там целый тип не integer, а longint.

В паскале АВС, а это именно этот раздел, integer=longint

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Mariam Dobara 0 / 0 / 1 Регистрация: 16.11.2014 Сообщений: 17
	21.11.2014, 18:48
	Помогите, пожалуйста, как без цикла правильно написать программу? 0

@Mariam Dobara 0 / 0 / 1 Регистрация: 16.11.2014 Сообщений: 17
	21.11.2014, 20:03
	Извиняюсь, но пишет код ошибки 201. Не подскажете, случайно, в чем дело? Буду благодарна 0

@Mariam Dobara 0 / 0 / 1 Регистрация: 16.11.2014 Сообщений: 17
	21.11.2014, 20:17
	Естественно я не пропускала пробелы. Все было написано с пробелами. Не стоит так быстро делать выводы. Все равно выдает ошибку. 0

@Mariam Dobara 0 / 0 / 1 Регистрация: 16.11.2014 Сообщений: 17
	21.11.2014, 20:24
	Эх, если бы я изучала этот язык программирования. Пытаюсь разбираться сама, как могу. Извиняюсь, если что не так сказала. В ошибке своей разобралась. Там целый тип не integer, а longint. Спасибо огромное за помощь. 0