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

@KSsjunyaaa · Регистрация: 03.01.2012

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

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

@~~raccoonlove~~ · 16.02.2014, 17:16

Pascal

var
    s: string;
    sum, i: integer;
begin
ReadLn(s);
sum := 0;
 
for i := 1 to Length(s) do
    sum := sum + ord(s[i]) - ord('0');
 
WriteLn(sum);
ReadLn;
end.

@KSsjunyaaa 0 / 0 / 0 Регистрация: 03.01.2012 Сообщений: 69
		1
	Дана строка, изображающая целое положительное число. Вывести сумму цифр этого числа 16.02.2014, 17:13. Показов 3797. Ответов 1 Метки нет (Все метки) Дона строка, изображающая целое положительное число. Вывести сумму цифр этого числа. 0

Опции темы

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

Решение