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

@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

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 09.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

@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