YOMEDIA
NONE

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

Theo dõi Vi phạm
ADSENSE

Trả lời (6)

  • Nguyen Thu

    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
    • YOMEDIA

    Video HD đặt và trả lời câu hỏi - Tích lũy điểm thưởng

  • Nguyễn Quốc Hùng

    Mơn nha

     

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

    8

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

    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
  • Linh Trần

    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
  • Nguyen An

    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
 
NONE

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

AANETWORK
 

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

 

YOMEDIA
AANETWORK
OFF