Viết chương trình pascal tính tổng các số chia hết cho 5 và chia hết cho 3 từ 1 đến 100
Viết chương trình pascal tính tổng các số chia hết cho 5 và chia hết cho 3 từ 1 đến 100
By Skylar
By Skylar
Viết chương trình pascal tính tổng các số chia hết cho 5 và chia hết cho 3 từ 1 đến 100
program tong;
uses crt;
var i,T: integer;
Begin
for i:=1 to 100 do
if (i mod 5=0) and (i mod 3=0) then T:=T+i;
write(‘T = ‘,T);
readln
End.
var i,n,t:integer;
begin
n:=100;
t:=0;
for i:=1 to n do
if (i mod 3 = 0) and (i mod 5=0) then t:=t+i;
writeln(t);
readln;
end.
Chúc bạn học tốt!!!!