Question

Pascal
Ввести целое число и найти сумму его цифр
Написать цикл со счетчиком

Answer 1

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.