*tính tổng dãy chẳn, lẻ *Kiểm tra số nguyên tố

0 bình luận về “*tính tổng dãy chẳn, lẻ *Kiểm tra số nguyên tố”

1. uses crt;
   var a : array[1..100] of integer;
   i,n,t1,t2 : integer;
   function snt(x : integer) : boolean;
   var d,j : integer;
   begin d:=0;
   for j:=1 to x do if x mod j = 0 then d:=d+1;
   if d=2 then snt:=true else snt:=false; end;
   begin clrscr;  t1:=0; t2:=0;
   write(‘Nhap so phan tu :’); readln(n);
   for i:= 1 to n do begin
   write(‘Nhap a[‘,i,’]=’); readln(a[i]); end;
   for i:=1 to n do
   if a[i] mod 2 = 0 then t1:=t1+a[i] else t2:=t2+a[i];
   writeln(‘Tong cac so chan cua day :’, t1);
   writeln(‘Tong cac so le cua day :’, t2);
   For i:=1 to n do if snt(a[i]) = true then writeln(a[i],’la so nguyen to’)
    else writeln(a[i],’khong la so nguyen to’);
   readln
   end.

   Bình luận

2. -Tính tổng dãy chẳn lẻ

   program ct;

   uses crt;

   var i,n,S,S1: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; S1:=0;

       for i:=1 to n do

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

      writeln(‘tong so chan la:’,S);

      writeln(‘tong so le la:’,S1);

   readln

   end.

   -kiểm trả số nguyên tố

   program ct;

   uses crt;

   var i,n:integer;

         A,D: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;

   for i:=1 to n do

     begin

       for j:=1 to A[i] do 

       if A[i] mod j=0 then D[i]:=D[i]+1;

       if D[i]=2 then writeln(A[i],’ la so nguyen to’) else writeln(A[i],’ khong la so nguyen to’);

   end;

   readln

   end.

   Bình luận