Дана строка, изображающая целое положительное число. Вывести сумму цифр этого числа - Pascal ABC
Формулировка задачи:
Дона строка, изображающая целое положительное число. Вывести сумму цифр этого числа.
Решение задачи: «Дана строка, изображающая целое положительное число. Вывести сумму цифр этого числа»
textual
Листинг программы
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д