Đăng nhập để hỏi chi tiết
0
0
3.
uses crt;
var i,n,s: integer;
begin
clrscr;
readln(n);
for i:=1 to n do if i mod 2=1 then s:=s+i;
write(s);
readln
end.
4.
uses crt;
var i,n,s: integer;
begin
clrscr;
readln(n);
for i:=1 to n do if (i mod 3=0) or (i mod 5=0) then s:=s+i;
write(s);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin