Tin học Viết chương trình tính tổng các số chia hết cho 5 hoặc 3 trong phạm vi từ M đến N 16/07/2021 By Serenity Viết chương trình tính tổng các số chia hết cho 5 hoặc 3 trong phạm vi từ M đến N
var s: longint; M, n, i: word; Begin Write(‘nhap m va n: ‘); readln(m, n); S:=0; For i:=m to n do If (i mod 5=0) or (i mod 3=0) Then s:=s+i; Write(s); Readln End. Trả lời
uses crt; var m,n,i,t:integer; begin clrscr; repeat write(‘Nhap m=’); readln(m); write(‘Nhap n=’); readln(n); until m<=n; t:=0; for i:=m to n do if (i mod 3=0) or (i mod 5=0) then t:=t+i; writeln(t); readln; end. @ xin hay nhất ạ ???? Trả lời