Question

Пож-та,помогите решить задание (верхнее)+!!!Спасибо всем ,кто ответил.

Answer 1

var s:real;

a, p:integer;

begin 

readln (a);

p:=a;

s:=0;

while p>0 do

begin

s:=s+p mod 10;

p:=p div 10;

end;

writeln (s);

end.