Tin học Viết chương trình tính tong cho số nguyên dương n 24/07/2021 By aihong Viết chương trình tính tong cho số nguyên dương n
nếu là tổng chữ số: program tongchuso; uses crt; var n:integer; s:byte; begin clrscr; write(‘Nhap n: ‘); readln(n); s:=0; while n>0 do begin s:=s+n mod 10; n:=n div 10; end; write(‘tong cac chu so la: ‘,s); readln end. *Nếu là tổng từ 1 đến n program tinhtong; uses crt; var n,i:integer; s:longint; begin clrscr; write(‘Nhap n: ‘); readln(n); s:=0; for i:=1 to n do s:=s+i; write(‘Tong cac so tu 1 -> ‘,n,’ la: ‘,s); readln end. Trả lời