Câu1:in bảng cửu chương n..( bằng 2 cách) Câu3:tính tổng dãy Câu 4: tính tổng dãy chẳn,lẻ Câu 5: kiểm tra số nguyên tố

Câu1:in bảng cửu chương n..( bằng 2 cách)
Câu3:tính tổng dãy
Câu 4: tính tổng dãy chẳn,lẻ
Câu 5: kiểm tra số nguyên tố

0 bình luận về “Câu1:in bảng cửu chương n..( bằng 2 cách) Câu3:tính tổng dãy Câu 4: tính tổng dãy chẳn,lẻ Câu 5: kiểm tra số nguyên tố”

  1. Câu 4 + Câu 5

    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. câu 1:

    program ct;

    uses crt;

    var n,i:integer;

    begin

    clrscr;

    write(‘nhap n=’);readln(n);

    writeln;

    writeln(‘bang nhan’,n);

    for i:=1 to 10 do writeln(n,’ x ‘, i:2 ,’ = ‘, n*i:3);

    readln

    end.

    câu 3:

    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 S:=S+A[i];

           writeln(‘tong la:’,S);

    readln

    end.

    câu 4:

    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.

    câu 5:

    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

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