Question

VCT pascal nhập số nguyên n xuất ra màn hình số lượng các số chẵn từ 1 đến n

VCT pascal nhập số nguyên n xuất ra màn hình số lượng các số lẻ từ 1 đến n

Answer 1

uses crt;

var n,i,dem,dem1:integer;

begin

clrscr;

write('nhap n='); readln(n);

dem:=0;

dem1:=0;

for i:=1 to n do

begin

if i mod 2=0 then inc(dem);

if i mod 2=1 then inc(dem1);

end;

writeln('so luong so chan trong day so tu 1 toi ',n,' la: ',dem);

writeln('so luong so le trong day so tu 1 toi ',n,' la: ',dem1);

readln;

end.

Answer 2

var n,i:longint;

begin

readln(n);

if n mod 2=0 then write('chan: ',n div 2,' le: ',n div 2) else

write('chan: ',n div 2,' le: ',n div 2+1) ;

end.