Viết chương trình nhận vào 1 số nguyên n viết chương trình tổng các số của N 15/07/2021 Bởi Gianna Viết chương trình nhận vào 1 số nguyên n viết chương trình tổng các số của N
uses crt; var n,s: integer; begin clrscr; write (‘nhap n: ‘); readln (n); while n>0 do begin s:=s+(n mod 10); n:=n div 10; end; writeln (‘tong cac chu so cua N la: ‘,s); readln; end. Bình luận
uses crt;
var n,s: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
while n>0 do
begin
s:=s+(n mod 10);
n:=n div 10;
end;
writeln (‘tong cac chu so cua N la: ‘,s);
readln;
end.