Cho N là số nguyên nhập từ bàn phím.Thực hiện nhưng iu cầu dưới đây: -Đếm xem có bao nhiu số lẻ từ 1 đến N -Tính tổng nghịch đảo của N -Hiện thị ra

mình ko hỉu tổng nghịch đảo là gì nên mình bỏ phần đó nha, có gì thì bạn bình luận bên dưới

program baitap;

uses crt;

var n,d,tb,tu:integer;

begin

clrscr;

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

{ Cau 1 }

d:=0;

for i:=1 to n do

 if i mod 2=1 then d:=d+1;

writeln(‘Co ‘,d,’ so le tu 1 den ‘,n);

{Cau 3}

write(‘Cac uoc cua n la: ‘);

for i:=1 to n do

 if n mod i=0 then write(i,’ ‘);

writeln;

{Cau 4}

tb:=0;

for i:=1 to n do

 if i mod 5=0 then tb:=tb+i;

writeln(‘Tong cac so chia het cho 5 tu 1 den ‘,n,’ la: ‘,tb);

{Cau 5}

tu:=0;

for i:=1 to n do

 if n mod i=0 then tu:=tu+i;

writeln(‘Tong cac uoc cua ‘,n,’ la: ‘,tu);

readln

end.