Решить. дано натуральное число. определите сумму цифр в нем. программу написать на free pascal.

Question

Информатика: Решить. дано натуральное число. определите сумму цифр в нем. программу написать на free pascal.

PomogitePLZZZzzzz · Answer

Var n,s:integer;beginwrite( n = );readln(n);s:=0;while n 0 do begin s:=s+n mod 10; n:=n div 10; end;writeln( s = ,s);end.Пример:n = 258s = 15...