@
@_@
Cấp bậc
Sắt đoàn
Điểm
10
Cảm ơn
2
Đã hỏi
Đã trả lời
Câu hỏi:
Câu trả lời của bạn: 10:34 16/05/2020
program tinhtong;
uses crt;
var i, n, S: integer;
begin clrsct;
write('nhap so nguyen duong n: '); readln(n);
for i := 1 to n do
if i mod 2=0 then
S:=S+i
write('tinh tong: ',S);
readln;
end.
