nhập n bất kì sau đó in ra tổng các chữ số n
yêu cầu sử dụng vong lặp vói số lần chưa bt trước
mô tả thuật toán
GIẢI GIÚP MÌNH VỚI MAI KT RỒI
nhập n bất kì sau đó in ra tổng các chữ số n yêu cầu sử dụng vong lặp vói số lần chưa bt trước mô tả thuật toán GIẢI GIÚP MÌNH VỚI MAI KT RỒI
By Anna
program tongchuso;
uses crt;
var n:int64;
t:byte;
begin
write(‘Nhap n: ‘); readln(n);
t:=0;
while n>0 do
begin
t:=t+n mod 10;
n:=n div 10;
end;
write(‘Tong cac chu so la: ‘,t);
readln
end.
Program tong_chu_so;
Uses crt;
Var n,S,t:Longint;
Begin
Write(‘Nhap n: ‘); readln(n);
S:=0;
While n>0 do
Begin
t:=n mod 10;
S:=S+t;
n:=n div 10;
End;
Write(‘Tong cac chu so la: ‘,S);
Readln;
End.
Xong:>>>>>>>>>>>>