Viết chương trình nhập một dãy n nguyên dương 32 bit,hãy in ra cá phần tử là số chính phương (n<=10^4) bài dự thi của tuiiii

Viết chương trình nhập một dãy n nguyên dương 32 bit,hãy in ra cá phần tử là số chính phương (n<=10^4) bài dự thi của tuiiii

0 bình luận về “Viết chương trình nhập một dãy n nguyên dương 32 bit,hãy in ra cá phần tử là số chính phương (n<=10^4) bài dự thi của tuiiii”

  1. var i,n: integer; ckq: boolean; arr: array[1..10000] of integer;
    begin
        write(‘Nhap so luong phan tu: ‘);
        readln(n);
        for i:=1 to n do
        begin
            write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘);
            readln(arr[i]);
        end;
        writeln(‘Ket qua: ‘);
        for i:=1 to n do
            if (frac(sqrt(arr[i]))=0) then 
            begin
                ckq:=true;
                writeln(i);
            end;
        if (ckq=false) then writeln(‘Khong co so nao thoa man.’);
        readln
    end.

    Bình luận

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