Quảng cáo
1 câu trả lời 196
program Numbers;
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 2 = 0 then
begin
sum := sum + i;
end;
end;
writeln('Tong so chan tu 1 den ', n, ' la: ', sum);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45509
-
Hỏi từ APP VIETJACK28401
Gửi báo cáo thành công!
