Trang 2 / 2 FirstFirst 12
Hiển thị kết quả từ 11 đến 12 / 12
  1. #11
    Tham gia
    30-06-2009
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 Posts
    Mình cũng có một bài tính tổng số nguyên tố. Không có đếm!

    program Beo;
    uses crt;
    var K, B,n,i:integer;
    a:array[1..100] of integer;
    Begin
    clrscr;
    write('Nhap so cac so nguyen trong mang: '); readln(n);
    writeln('nhap cac so nguyen to vao mang:' );
    for i:=1 to n do Begin
    write('so thu ',i,' la: '); readln(a[i]);
    end;
    B:=0;
    for i:=1 to n do
    begin
    K:=2;
    while (a[i] mod K<>0) do K:=K+1;
    if K = a[i] then B:=B+a[i];
    end;
    writeln('Tong cac so nguyen to trong mang la: ',B);
    readln
    end.

  2. #12
    Tham gia
    23-06-2009
    Location
    Huyện Gia Bình - Tỉnh Bắc Ninh
    Bài viết
    323
    Like
    0
    Thanked 4 Times in 4 Posts
    code chuẩn đây
    Code:
    program nguyento;
    Type mang=array[1..100] of integer;
    Var i,N:integer;A:mang;
    procedure Nhap(Var A:mang;n:integer);
    Var i:integer;
    Begin
     For i:=1 to N do
     Begin
      write('A[',i,']=');
      Readln(A[i]);
     End;
    End;
    function sont(x:integer):Boolean;
    Var i:integer;
    Begin
     sont:=(x>1);
     For i:=2 to trunc(sqrt(x)) do
      if x mod i =0 then
       Begin
        sont:=false;
        break;
       End;
    End;
    BEGIN
     write('n='); Readln(n);
     Nhap(A,n);
     For i:=1 to n do if sont(A[i]) then write(A[i]:3);
       Readln;
    END.

Trang 2 / 2 FirstFirst 12

Bookmarks

Quy định

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •