Составьте программу вычисления суммы цифр введенного с клавиатуры
трехзначного натурального числа. Например, для числа 128 сумма цифр 11,
для числа 345 сумма цифр 12.
VAR n,n_1,n_2,n_3,o,summa:word; n_s:string; BEGIN write('Введите трехзначное число:'); readln(n); str(n,n_s); val(n_s[1],n_1,o); val(n_s[2],n_2,o); val(n_s[3],n_3,o); summa:=n_1+n_2+n_3; writeln('Сумма цифр равна ',summa); END.
* переменные n_1, n_2, n_3 - первая, вторая и третья цифра введенного числа * переменная o - содержит результат выполнения функции val (если o=0, то функция выполнена успешно) * переменная n_s - это же введенное число только строкового типа.
n,n_1,n_2,n_3,o,summa:word;
n_s:string;
BEGIN
write('Введите трехзначное число:');
readln(n);
str(n,n_s);
val(n_s[1],n_1,o);
val(n_s[2],n_2,o);
val(n_s[3],n_3,o);
summa:=n_1+n_2+n_3;
writeln('Сумма цифр равна ',summa);
END.
* переменные n_1, n_2, n_3 - первая, вторая и третья цифра введенного числа
* переменная o - содержит результат выполнения функции val (если o=0, то функция выполнена успешно)
* переменная n_s - это же введенное число только строкового типа.