Bai 1 : Viết chương trình đọc vào n số nguyên . Đếm xem có bao nhiêu số nguyên dương, bao nhiêu số nguyên âm Dữ liệu vào file: bt1.inp – Dòng 1: chứa

Bai 1 : Viết chương trình đọc vào n số nguyên . Đếm xem có bao nhiêu số nguyên dương, bao nhiêu số nguyên âm
Dữ liệu vào file: bt1.inp
– Dòng 1: chứa số n
– Dòng 2 chứa n số cách nhau ít nhất 1 khoảng trắng
Dữ liệu ra file: bt1.out
– Dòng 1: So cac so duong: …
– Dòng 1: So cac so am : …
Vi du :
INPUT
3
3 -2 4
OUTPUT
So cac so am: 1
So cac so duong: 2
Bai2: Viết chương trình đọc vào n số nguyên (n < 1000). Đếm xem có bao nhiêu số nguyên tố? ( Su dung ham de kiem tra); Xuat ra file. VD : INPUT 3 3 2 4 OUTPUT 2

0 bình luận về “Bai 1 : Viết chương trình đọc vào n số nguyên . Đếm xem có bao nhiêu số nguyên dương, bao nhiêu số nguyên âm Dữ liệu vào file: bt1.inp – Dòng 1: chứa”

  1. Bài 1:

    Const Fi=’BT1.INP’;
          Fo=’BT1.OUT’;
    Var f,g: text;
        A: array[1..1000] of longint;
        n,i,da,dd: longint;
    Begin
            Assign(f,Fi); Reset(f);
            Assign(g,Fo); Rewrite(g);
            Read(f,n);
            da:=0; dd:=0;
            For i:=1 to n do
            Begin
                    Read(f,A[i]);
                    If A[i]>0 then inc(dd)
                    Else If A[i]<0 then inc(da);
            End;
            Writeln(g,’So cac so am: ‘,da);
            Write(g,’So cac so duong: ‘,dd);
            Close(f);
            Close(g);
    End.

    Bài 2:

    Const Fi=’BT.INP’;
          Fo=’BT.OUT’;
    Var f,g: text;
        A: array[1..1000] of longint;
        n,i,d: longint;

    Function ngto(a: longint): boolean;
    Var i: longint;
    Begin
            If a<2 then exit(false);
            For i:=2 to a div 2 do
                    If a mod i = 0 then exit(false);
            exit(true);
    End;

    Begin
            Assign(f,Fi); Reset(f);
            Assign(g,Fo); Rewrite(g);
            Read(f,n);
            da:=0; dd:=0;
            For i:=1 to n do
            Begin
                    Read(f,A[i]);
                    If ngto(A[i]) then inc(d);
            End;
            Write(g,d);
            Close(f);
            Close(g);
    End.

    Bình luận
  2. Bài 1:

    Const Fi=’BT1.INP’;
       Fo=’BT1.OUT’;
    Var f,g: text;
      A: array[1..1000] of longint;
      n,i,da,dd: longint;
    Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Read(f,n);
        da:=0; dd:=0;
            For i:=1 to n do
            Begin
                Read(f,A[i]);
                 If A[i]>0 then inc(dd)
                Else If A[i]<0 then inc(da);
            End;
         Writeln(g,’So cac so am: ‘,da);
        Write(g,’So cac so duong: ‘,dd);
         Close(f);
         Close(g);
        End.

    Bình luận

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