Tin học viết chương trình tính tổng các số tự nhiên chia hết cho 3 trong khoảng từ 1 đến N theo 2 cách for…do và while..do 21/07/2021 By Eva viết chương trình tính tổng các số tự nhiên chia hết cho 3 trong khoảng từ 1 đến N theo 2 cách for…do và while..do
var i,n: integer; s:longint; begin write(‘nhap so n=’);readln(n); s:=0; i:=1; while i<=n do begin s:=s+i; i:=i+1; end; write(‘tong cua’,n,’ so tu nhien dau tien la’,s); readln end. Trả lời