Viết chương trình nhập vào 1 số nguyên Bài 1: in ra các số chính phương từ 1 đến n Bài 2: in ra các số vừa chia hết cho 3 và 5 Bài 3: Tính tổng các s

0 bình luận về “Viết chương trình nhập vào 1 số nguyên Bài 1: in ra các số chính phương từ 1 đến n Bài 2: in ra các số vừa chia hết cho 3 và 5 Bài 3: Tính tổng các s”

1. bài 4: 

   program in_nt;

   uses crt;

   var n:integer;

   function kt_nt:boolean;

    var i:integer;ok:boolean;

       begin 

            ok:true;

              for i:=2 to n-1 do(vì số nto kể từ số 2 nên chạy từ 2,n-1 vì trừ đi 1 giá trị của phần tử đầu á)

                 if n mod 2=0 then ok:=false;

                 kt_nt:=ok;

        end;

   begin

    clrscr;

        write(‘nhap n’);

         readln(n);

              if kt_nt then 

                   begin

                        for k:=2 to i-1 do

                            if i mod k= 0 then write(k:2:5);

                    end;

      readln;

   end.

   Bình luận