viết chương trình n số nguyên (n<=100) và 1 số nguyên K có bao nhiêu số chính phương

0 bình luận về “viết chương trình n số nguyên (n<=100) và 1 số nguyên K có bao nhiêu số chính phương”

1. Sửa đề: bỏ nhập k vài nó ko liến quan, bạn vui lòng bổ sung chi tiết câu hỏi.

   uses crt;
   var i,n,d:longint; a:array[1..10000000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(A[i]);
            if sqrt(a[i])=trunc(sqrt(a[i])) then inc(d);
         end;
      writeln(d);
   readln;
   end.

   Bình luận

2. Sửa đề: bỏ nhập k vài nó ko liến quan, bạn vui lòng bổ sung chi tiết câu hỏi.

   uses crt;
   var i,n,d:longint; a:array[1..10000000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(A[i]);
            if sqrt(a[i])=trunc(sqrt(a[i])) then inc(d);
         end;
      writeln(d);
   readln;
   end.

   Bình luận