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

0 bình luận về “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”

1. 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.

   Bình luận