Pascal

Ввести целое число и найти сумму его цифр

Написать цикл со счетчиком

var n, m, i, k, o:integer;

s:string;

begin

readln (n) ; / / программа спрашивает, какое число будем анализировать и присваивает его переменной n

str (n, s) ; / / получаем строку из числа

for i:=1 to length (s) do

begin

val (s[i], k, o) ; / / посимвольно переводим строку в символ

m: = k + m; / / и суммируем все в переменную m

end;

writeln (m) ; / / выводим сумму цифр

end.