viết chương trình tính số chẵn và số lẻ từ 1 đến n ( mn giúp mh với ? )
2 câu trả lời
program demchanle;
uses crt;
var d,n:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
for i:=1 to n do
if i mod 2=0 then d:=d+1;
writeln('Tu 1->',n,' co ',d,' so chan');
writeln('Tu 1->',n,' co ',n-d,' so le');
readln
end.
program phuongt;
uses crt;
var n, s, d, i: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
s:=0; d:=0;
for i:=1 to n do if i mod 2 = 0 then s:=s+1 else d:=d+1;
writeln('So chan = ', s);
write('So le = ', d);
readln
end.
