Question

Nhập từ bàn phím số nguyên dương N (0<N<=2*\(^{10^9}\)).Tính và đưa ra màn hình tổng bình phương các chữ số của N.

Answer 1

Các bạn ơi câu hỏi trên là 2 nhân với 10 mũ 9 nhá ! Mình cần đáp án trước 8h sáng ngày mai !

Answer 2

uses crt;
var n,d,i,t,x,y:integer;
st:string;
begin
clrscr;
write('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+sqr(x);
end;
writeln('tong binh phuong cac chu so cua ',n,' la: ', t);
readln;
end.