tính tổng các số vừa lẻ vừa chia hết cho 7 trong khoảng từ 1 đến n ( n nhập từ bàn phím)

Question

mytam · Answer

Dưới ảnh nha

truongankim · Answer

program Untitled;
uses crt;
var
n,i,t:integer;
begin
clrscr;
write (‘nhap so n : ‘);readln (n);
t:=0;
for i:=1 to n do if (i mod 7 = 0) and (i mod 2 =1) then t:=t+i;
write (‘tong cac so vua le vua chia het cho 7 tu 1 den ‘,n,’ la : ‘,t);
readln
end.

tính tổng các số vừa lẻ vừa chia hết cho 7 trong khoảng từ 1 đến n ( n nhập từ bàn phím)

0 bình luận về “tính tổng các số vừa lẻ vừa chia hết cho 7 trong khoảng từ 1 đến n ( n nhập từ bàn phím)”

Viết một bình luận Hủy