Viết chương trình kiểm tra in các số hoàn hảo và chính phương từ 1 đến n Mỗi loại in 1 hàng Quân giúp tiếp nha!

Viết chương trình kiểm tra in các số hoàn hảo và chính phương từ 1 đến n
Mỗi loại in 1 hàng
Quân giúp tiếp nha!

0 bình luận về “Viết chương trình kiểm tra in các số hoàn hảo và chính phương từ 1 đến n Mỗi loại in 1 hàng Quân giúp tiếp nha!”

  1. program hh_cp;

    uses crt;

    var n,i:integer;

    {—Ham-hoan-hao—}

    function hh(k:integer):boolean;

    var t,j:integer;

    begin

           t:=0;

           for j:=1 to k div 2 do

                  if k mod j=0 then t:=t+j;

           if t=k then hh:=true esle hh:=false;

    end;

    {—Ham-chinh-phuong—}

    function cp(k:integer):boolean;

    begin

           if sqr(trunc(sqrt(k)))=k then cp:=true else cp:=false;

    end;

    {—Chuong-trinh-chinh—}

    BEGIN

           clrscr;

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

           for i:=2 to n do 

                  if hh(i) then write(i,’ ‘);

           writeln;

           for i:=1 to n do

                  if cp(i) then write(i,’ ‘);

           readln;

    end.

    Bình luận
  2. mình xin trả lời

    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

Viết một bình luận