Вычислить сумму цифр заданного натурального двухзначного числа A

@некит434 · Регистрация: 23.01.2014

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

Вычислить сумму цифр заданного натурального двухзначного числа A.
Входные данные:
Во входном потоке записано единственное натуральное число A (10 <= A <= 99).

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

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

@Puporev · 29.07.2014, 18:40

Ну ты тупеешь прямо на глазах...

Pascal

1	write(a div 10+a mod 10);

Новичок · 01.08.2014, 03:00

Обидно, что такую задачу по-другому не решишь...

@APALoff · 01.08.2014, 09:30

Сообщение от Новичок

Обидно, что такую задачу по-другому не решишь...

Ну почему же? Все можно, только не всегда это целесообразно )

Pascal

Function SumCifr(A : Longint) : Integer;
Begin
  If A>0 then SumCifr:=(A mod 10)+SumCifr(A div 10) else SumCifr:=0;
end;
 
Begin
  Writeln(SumCifr(89));
end.

@Sergio Leone · 01.08.2014, 14:47

Сообщение от Новичок

Обидно, что такую задачу по-другому не решишь...

Вы так думаете?!

Сообщение от APALoff

Ну почему же? Все можно, только не всегда это целесообразно )

точняк! +1

Ну ещё для коллекции:

Pascal

var A, SumA: LongInt;
begin
  Read(A);
  SumA := 0;
  {суммуруем число по цифрам (в обратном порядке) }
  repeat
    SumA :=  SumA + (A mod 10);
    A := A div 10;
  until A = 0;
  Write(SumA);
end.

Новичок, решение через строку и суммирование кодов символов строки показать?!

Новичок · 01.08.2014, 15:00

Сообщение от Sergio Leone

Новичок, решение через строку и суммирование кодов символов строки показать?!

Это не интересно.

Вы-то решили эту задачу двумя способами, но опять же все традиционное... Не реально что-то крутое сделать в этой задаче. Вот задача :"Найти кол-во отрицательных элементов", то тут можно

Pascal

1	inc(k,ord(a[i]<0);

@Puporev · 01.08.2014, 15:08

Сообщение от Новичок

то тут можно

В этом разделе нельзя, АВС не понимает ord(a[i]<0), да и скобки еще не хватает

Новичок · 01.08.2014, 15:09

Да, точно ,скобки нет одной.

Сообщение от Puporev

АВС не понимает ord(a[i]<0)

Ничего себе! Вот уж мутант а не среда!

@Sergio Leone · 01.08.2014, 15:12

Сообщение от Новичок

Это не интересно.

а что интересно?

Использование ord() интересно?!

Сообщение от Новичок

Вот задача :"Найти кол-во отрицательных элементов", то тут можно

Так и тут можно:

Pascal

var A : string;
   i,k: integer;
begin
  Read(A);
  A := Trim(A);
  k := 0;
  for i:=1 to Length(A) do
    Inc(k, ord(A[i])-48);
  Write(k);
end.

@APALoff · 01.08.2014, 15:12

"Если что-то не делает то, что Вы запланировали ему делать, то это не значит, что оно бесполезно!"

"Если в Вашей программе что-то работает не так как Вы хотели - укажите это в спецификации как "особенность данной программы"".

Новичок · 01.08.2014, 15:13

Сообщение от Sergio Leone

Использование ord() интересно?!

Что угодно, кроме шаблонного

Pascal

1	if a[i]<0 then ...

@Puporev · 01.08.2014, 15:15

А здесь этого нет?

Pascal

1	inc(k,ord(a[i]<0));

Новичок · 01.08.2014, 15:16

Да ладно. Просто всегда, когда есть шаблонная задача, хочется ее каким-то более интересным путем решить. Предлагаю закончить оффтоп...

@некит434 2 / 2 / 0 Регистрация: 23.01.2014 Сообщений: 272
		1
	Вычислить сумму цифр заданного натурального двухзначного числа A 29.07.2014, 18:38. Показов 2432. Ответов 12 Метки нет (Все метки) Вычислить сумму цифр заданного натурального двухзначного числа A. Входные данные: Во входном потоке записано единственное натуральное число A (10 <= A <= 99). Выходные данные: В выходной поток вывести единственное целое число. Пример входного файла (input.txt): 92 Пример выходного файла (output.txt): 11 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	01.08.2014, 03:00	3
	Обидно, что такую задачу по-другому не решишь... 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	01.08.2014, 15:08	7
	Сообщение от Новичок то тут можно В этом разделе нельзя, АВС не понимает ord(a[i]<0), да и скобки еще не хватает 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	01.08.2014, 15:09	8
	Да, точно ,скобки нет одной. Сообщение от Puporev АВС не понимает ord(a[i]<0) Ничего себе! Вот уж мутант а не среда! 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	01.08.2014, 15:12	10
	"Если что-то не делает то, что Вы запланировали ему делать, то это не значит, что оно бесполезно!" "Если в Вашей программе что-то работает не так как Вы хотели - укажите это в спецификации как "особенность данной программы"". 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	01.08.2014, 15:16	13
	Да ладно. Просто всегда, когда есть шаблонная задача, хочется ее каким-то более интересным путем решить. Предлагаю закончить оффтоп... 0