Question

Nhập số có 3 chữ số tính tổng các chữ số của nó

Answer 1

uses crt;

var a,b,c,t:integer;

begin

write('nhap 3 so bat ki');readln(a,b,c);

t:=a+b+c;

write('tong la : ',t:2:3);

readln;

end.

 

Answer 2

uses crt;

var n,x,t:integer;

begin

clrscr;

readln(n);

t:=0;

while (n>0) do 

begin

x:=n mod 10;

t:=t+x;

n:=n div 10;

end;

writeln(t);

readln;

end.