KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
viết chương trình tính tổng các chữ số của số tự nhiên n
By Kennedy
viết chương trình tính tổng các chữ số của số tự nhiên n
var n,dem,tong:Longint; begin;
clrscr; write(‘Nhap so nguyen duong nhieu hon 1 chu so:’); readln(n); tong:=0; dem:=0; while n>0 Do begin inc(dem); tong:=tong+n MOD 10; n:=n DIV 10; end; writeln(‘Tong cac chu so:’,tong); writeln(‘So cac chu so=’,dem); readln; end.
viết chương trình tính tổng các chữ số của số tự nhiên n:viết:var n,dem,tong:Longint; begin; clrscr; write(‘Nhap so nguyen duong nhieu hon 1 chu so:’); readln(n); tong:=0; dem:=0; while n>0 Do begin inc(dem); tong:=tong+n MOD 10; n:=n DIV 10; end; writeln(‘Tong cac chu so:’,tong); writeln(‘So cac chu so=’,dem); readln; end.
var n,dem,tong:Longint;
begin;
clrscr;
write(‘Nhap so nguyen duong nhieu hon 1 chu so:’);
readln(n);
tong:=0; dem:=0;
while n>0 Do
begin
inc(dem);
tong:=tong+n MOD 10;
n:=n DIV 10;
end;
writeln(‘Tong cac chu so:’,tong);
writeln(‘So cac chu so=’,dem);
readln;
end.
viết chương trình tính tổng các chữ số của số tự nhiên n: viết:var n,dem,tong:Longint;
begin; clrscr;
write(‘Nhap so nguyen duong nhieu hon 1 chu so:’);
readln(n);
tong:=0; dem:=0;
while n>0 Do
begin
inc(dem);
tong:=tong+n MOD 10;
n:=n DIV 10;
end;
writeln(‘Tong cac chu so:’,tong);
writeln(‘So cac chu so=’,dem);
readln;
end.