Question

Lập một chương trình pascal cho một số n(0<n<=10^1000000),hãy tính tổng tất cả chữ số trong n

Answer 1

uses crt;
var n,i,d,t,x,y:integer;
st:string;
begin
clrscr;
write('nhap n='); readln(n);
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln('tong cac chu so cua ',n,' la:',t);
readln;
end.

Answer 2

Lời giải :

var i,n,s : longint ;

begin

s:=0;

for i:= 1 to 10000000 do

s:=s+i ;

write(s);

readln

end.