Pascal 1.Viết phương trình nhập vào 1 số nguyên a) Là só chẵn hay lẽ b) Có phải là số nguyên tố hay không 2. Nhập vào 1 dãy số gồm n số nguyên a) tính tổng các số chẵn b) in ra màn hình các số chia hết cho 3 3. Nhập từ bàn phím số nguyên n tính 1/n là số nhỏ nhất sao cho 1/n bé hơn hoặc bằng 0,003

1

program ct;

uses crt;

var d,i,n:integer;

begin

 clrscr;

  write('nhap mot so nguyen:=');readln(n);

  {-------- cau a -------}

      if n mod 2=0 then writeln(n,' la so chan')

                              else writeln(n,' la so le')

  {-------- cau b-------}

     d:=0;

       for i:=1 to n do 

          if n mod i=0 then d:=d+1;

          if d=2 then writeln(n,' la so nguyen to') else writeln(n,' khong phai so nguyen to');

  readln

  end.

2

program ct;

uses crt;

var i,n,S:integer;

      A:array[1..100] of integer;

begin

clrscr;

  write('nhap n:=');readln(n);

     for i:=1 to n do

begin

  write('nhap mang A[',i,']:=');readln(A[i]);

end;

  S:=0;

    for i:=1 to n do

       if A[i] mod 2=0 then S:=S+A[i];

    writeln('tong cac so chan la:',S);

    writeln('cac so chia het cho 3 la');

      for i:=1 to n do

          if A[i] mod 3=0 then write(A[i],'  ')

readln

end.

3

program ct;

uses crt;

var n:integer;

      x:real;

const saiso=0.003;

begin

clrscr;

  x:=1;  n:=1;

     while x>=saiso do

  begin

      x:=1/n;

      n:=n+1;

  end;

writeln('so n be nhat de 1/n<', saiso:5:4 ,' la ',n-1);

readln

end.

1)

program ct;

uses crt;

var i,n,d:integer;

begin clrscr;

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

   if n mod 2=0 then write(n,' la so chan')

                          else write(n,' la so le')

   for i:=1 to n do 

     if n mod i=0 then inc(d);

     if d=2 then writeln(n,' la so nguyen to')

                 else writeln(n,' khong la so nguyen to');

  readln;

  end.

2)

program ct;

uses crt;

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

      i,n:integer;

      S:longint;

begin clrscr;

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

   for i:=1 to n do

     begin

        write('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     S:=0;

   for i:=1 to n do

     if A[i] mod 2=0 then S:=S+A[i];

   writeln('Tong cac so chan la: ',S);

   writeln('Cac so chia het cho 3 la: ');

   for i:=1 to n do

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

readln;

end.

3)

program ct;

uses crt;

var n:integer;

      i:real;

const sc=0.003;

begin clrscr;

     i:=1; n:=1;

   while i>=sc do

     begin

        i:=1/n;

        n:=n+1;

     end;

   write('So ',n-1,' la be nhat de 1/n<,'sc);

readln;

end.

Học tốt!