Quảng cáo
2 câu trả lời 150
program CountEvenOdd;
var
N, i, evenCount, oddCount: integer;
begin
write('Nhập số nguyên N (N <= 200): ');
readln(N);
if (N <= 0) or (N > 200) then
writeln('N phải lớn hơn 0 và nhỏ hơn hoặc bằng 200.')
else
begin
evenCount := 0;
oddCount := 0;
for i := 1 to N do
begin
if i mod 2 = 0 then
evenCount := evenCount + 1
else
oddCount := oddCount + 1;
end;
writeln('Tổng số số chẵn trong khoảng từ 1 đến ', N, ': ', evenCount);
writeln('Tổng số số lẻ trong khoảng từ 1 đến ', N, ': ', oddCount);
end;
end.
program CountEvenOdd;
var
N, i, evenCount, oddCount: integer;
begin
write('Nhập số nguyên N (N <= 200): ');
readln(N);
if (N <= 0) or (N > 200) then
writeln('N phải lớn hơn 0 và nhỏ hơn hoặc bằng 200.')
else
begin
evenCount := 0;
oddCount := 0;
for i := 1 to N do
begin
if i mod 2 = 0 then
evenCount := evenCount + 1
else
oddCount := oddCount + 1;
end;
writeln('Tổng số số chẵn trong khoảng từ 1 đến ', N, ': ', evenCount);
writeln('Tổng số số lẻ trong khoảng từ 1 đến ', N, ': ', oddCount);
end;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK9 25520
-
1 20709