Nhập vào số nguyên dương ?. Xuất ra màn hình số lượng số lẻ và số lượng số chẵn trong các số {1,2, … , ?}, mỗi kết quả nằm trên một dòng. pascal.
2 câu trả lời
program soluongchanle;
uses crt;
var n,i,d:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
for i:=1 to n do
if i mod 2=1 then inc(d);
writeln('So luong so le la: ',d);
writeln('So luong so chan la: ',n-d);
{vi so luong so chan=so luong-so luong so le}
readln
end.
uses crt;
var n,i,d,d1:longint;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do if i mod 2=0 then inc(d) else inc(d1);
writeln(d1);
writeln(d);
readln
end.
