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
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.
Ukm
giống lúc trước
ở dưới