Question

[trang]

viết chương trình kiểm tra từ 1 đến n có bao nhiêu số chẳn và lẻ

Answer 1

[Minh Lệ]

Program HOC24;

var i,n,d,d1: integer;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do 

if i mod 2=0 then d:=d+1 else d1:=d1+1;

writeln('Co ',d,' so chan');

write('Co ',d,' so le');

readln

end.