program Tin_hoc;
uses crt;
var a,S,i,x,y,k:integer;
tbc:real;
begin
clrscr;
write('Nhap so a: ');readln(a);
x:=a;k:=1;S:=0;
while x>9 do
begin
y:=x mod 10;
x:=x div 10;
k:=k+1;
S:=S+y
end;
S:=S+x;
tbc:=S/k;
writeln('Tong S cac chu so cua a la: S = ',S);
writeln('Trung binh cong cac chu so cua a la: ',tbc:0:2);
readln;
end.
Nhớ cho mik câu trả lời hay nhất nha