Tin học mn giúppppppppppppppppppp VCT tính tổng các số chia hết cho 3 mà ko chia hết cho 6 từ 1 đến n 17/07/2021 By Madeline mn giúppppppppppppppppppp VCT tính tổng các số chia hết cho 3 mà ko chia hết cho 6 từ 1 đến n
program tinh_tong; 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 6<>0) then t:=t+i; write(‘Tong cac so chia het cho 3 ma khong chia het cho 6 la: ‘,t); readln; end. Trả lời
Xin câu trả lời hay nhất ạ! Program abcde; Uses crt; Var n,i,S:integer; begin clrscr; write(‘Nhap n: ‘); readln(n); S:=0; for i:=1 to n do if (i mod 3=0) and (i mod 6<>0) then S:=S+i; write(‘Tong cac so chia het cho 3 ma khong chia het cho 6 la: ‘,S); readln end. Trả lời