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

Question

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

aivilan · Answer

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:>>>>>>>>>>>>

thubichdan · Answer

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.

0 bình luận về “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”