OPTADS360
ATNETWORK
RANDOM
ON
YOMEDIA
Banner-Video
IN_IMAGE

Viết ct nhập vào 1 dãy số nguyên sau đó in ra màn hình các số nguyên tố vừa nhập?

Viết ct nhập vào 1 dãy số nguyên sau đó in ra màn hình các số nguyên tố vừa nhập

  bởi Nguyễn Quốc Hùng 03/05/2019
AMBIENT-ADSENSE/lession_isads=0
QUẢNG CÁO
 

Câu trả lời (6)

  • uses crt;

    var n,j,i:integer;

    a:array[1..100]og integer;

    kt:boolean;

    begin

    readln(n);

    for i:=1 to n do readln(a[i]);

    for i:=1 to n do if a[i]>1 do 

           begin

          kt:=true;

    for j:=2 to a[i]-1 do if a[i] mod j=0 then 

                  begin

         kt:=false;

          break;

    end;

    if kt=true then write(a[i];' ');

    end;

    readln

    end.

      bởi Nguyen Thu 07/05/2019
    Like (0) Báo cáo sai phạm

  • Mơn nha

     

      bởi Nguyễn Quốc Hùng 08/05/2019
    Like (0) Báo cáo sai phạm

  • 8

      bởi Nguyễn Duy Khánh 10/05/2019
    Like (0) Báo cáo sai phạm

  • program bai1; var a:array[1..100] of longint; i,n,max:longint; begin wrtie('N= ');readln(n); for i:=1 to n do begin write('A[',i,']= '); readln(a[i]); end; max:=a[1]; for i:=1 to n do if a[i]>max then max:=a[i]; writeln('So lon nhat la ',max); write('Vi tri la '); for i:=1 to n do if a[i]=max then write(i,' '); readln end.

      bởi Khưu Gia Bảo 15/07/2019
    Like (0) Báo cáo sai phạm

  • VAR a:ARRAY[1..100] OF longint;
    n,d,dem,i,j,t:longint;
    BEGIN
    dem:=0;
    WRITELN('NHAP SO PHAN TU N:');
    READ(N);
    WRITELN('NHAP MANG:');
    FOR i:=1 TO n DO
    BEGIN
    WRITE('a[',i,']=');READLN(a[i]);
    END;

    //---------sap---xep------
    for i:=1 to n-1 do
    for j:=i+1 to n do
    if a[i]>a[j] then
    begin
    t:=a[i];
    a[i]:=a[j];
    a[j]:=t;
    end;
    write('day sau khi sap xep: ');
    for i:=1 to n do write(a[i],' ');
    writeln;
    //--------tim-so-nguyen--to------

    write('cac so nguyen to trrong day la: ');
    for i:=1 to n do
    if a[i]>=2 then
    begin
    j:=2;
    while (j<=sqrt(a[i])) and ((a[i] mod j<>0)) do j:=j+1;
    if j>sqrt(a[i]) then write(a[i],' ');
    end;
    writeln;
    //----------dem-so-nguyen-to-----
    FOR i:=1 TO n DO
    BEGIN
    d:=0;
    FOR j:=1 TO a[i] DO
    IF a[i] MOD j = 0 THEN d:=d+1;
    IF d=2 THEN dem:=dem+1;
    END; 
    WRITE('SO NGUYEN TO CO TRONG MANG LA:',dem);
    readln;
    END.

      bởi Linh Trần 15/07/2019
    Like (0) Báo cáo sai phạm

  • program nguyento;

    uses crt;

    var i,n,b,c,d:longint;       a: array[1..100] of longint;

    begin

    clrscr;

    write('Nhap so n: '); readln(n);

    for i:=1 to n do

    begin

    write(i,'.  '); readln(a[i]);

    end;

    for i:=1 to n do

    begin

    for j:=1 to a[i] do if a[i] mod j=0 then d:=d+1;

    if d=2 then write(a[i]:5);

    d:=0;

    end;

    readln

    end.

      bởi Nguyen An 19/10/2019
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
 

Các câu hỏi mới

NONE
OFF

XEM NHANH CHƯƠNG TRÌNH LỚP 8