viết chương trình tính tổng các số tự nhiên chia hết cho 3 và 7trong khoảng từ 1 đến N

Question

dananh · Answer

Dưới ảnh   &darr;&darr;↧↧

kimlien · Answer

program chiahet_3_7;

uses crt;

var n,i,t:integer;

begin

clrscr;

write(‘Nhap n: ‘); readln(n);

t:=0;

for i:=1 to n do

if (i mod 3=0) and (i mod 7=0) then t:=t+i;

write(‘Tong cac so chia het cho 3 va 7 tu 1 den ‘,n,’ la: ‘,t);

readln;

end.

0 bình luận về “viết chương trình tính tổng các số tự nhiên chia hết cho 3 và 7trong khoảng từ 1 đến N”