viết chương trình 1 dãy n số và in ra số nguyên tố.

viết chương trình 1 dãy n số và in ra số nguyên tố.

0 bình luận về “viết chương trình 1 dãy n số và in ra số nguyên tố.”

  1. program ct;

    uses crt;

    var A:array[1..1000] of integer;

          i,j,n,d:integer;

    begin clrscr;

       write(‘Nhap so phan tu n: ‘); readln(n);

       for i:=1 to n do

         begin

            writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

         end;

       writeln(‘Cac so nguyen to la: ‘);

       for i:=1 to n do

         begin

            for j:=2 to n do

               if A[i] mod j=0 then inc(d);

               if d=0 then write(A[i]:3);

         end;

    readln;

    end.

    Học tốt!

    Bình luận
  2. uses crt;

    var n, i, j, dem: integer;

    A:array[1..1000] of real;

    begin

    clrscr;

    Write(‘Nhap n ‘);

    readln(n);

    for i:=1 to n do

    begin

    write(‘Nhap phan tu thu ‘,i,’: ‘);

    readln(A[i]);

    end;

    Write(‘Cac so nguyen to co trong mang la: ‘);

    for i:=1 to n do

    begin

    dem:=0;

    for j:=2 to n do

    if A[i] mod j=0 then dem:=dem+1;

    if dem=0 then write(A[i],’; ‘);

    end.

    Bình luận

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