Задача №647. Дана строка, изображающая целое число. Вывести сумму цифр этого числа

@Iluxa15V · Регистрация: 13.08.2012

Задача №647. Дана строка, изображающая целое число. Вывести сумму цифр этого числа.

@Puporev · 19.08.2012, 08:24

Pascal

1
2
3

sum:=0;
for i:=1 to length(a) do
sum:=sum+ord(a[i])-ord('0');

@Iluxa15V 0 / 0 / 0 Регистрация: 13.08.2012 Сообщений: 56
		1
	Задача №647. Дана строка, изображающая целое число. Вывести сумму цифр этого числа 19.08.2012, 08:15. Показов 1274. Ответов 1 Метки нет (Все метки) Задача №647. Дана строка, изображающая целое число. Вывести сумму цифр этого числа. 0

	19.08.2012, 08:24

Опции темы

Решение