Tin 11, giúp mình với. Đề: 1) Với N là 1 số nguyên nhập từ bàn phím Viết ctrinh tính: S= 2*4*6*8…*N 2) Viết ctrinh nhập vào số nguyên dương N. Đưa

0 bình luận về “Tin 11, giúp mình với. Đề: 1) Với N là 1 số nguyên nhập từ bàn phím Viết ctrinh tính: S= 2*4*6*8…*N 2) Viết ctrinh nhập vào số nguyên dương N. Đưa”

1. Câu 1:

   program   Bt1;

   uses          crt;

   var             N,i,S:integer;

   begin        

                Clrscr;

                Writeln(‘nhap N:=’);

              Readln(N);

             S:=0;

             For i:=1 to n do

                 If (i mod 2=0) then S:= S+i;

                Write(‘S=’ ,S:2);

               Readln;

   end.

   Câu 2:

   program  bt2;

   Uses        crt;

   Var           N,i,d : Word;

   Begin

              If N<2 Then Writeln(N,’ khong phai la so nguyen to’) Else

                Begin

                    d:=0;

                   For i:=2 To N div 2 Do

                  If N MOD i=0 Then 

                  d:=d+1;

                  If d=0 Then Writeln(N,’ la so nguyen to’)

                Else

                    Writeln(N,’ khong phai la so nguyen to’);

            End;

    
            Readln;

   End.

   Bình luận

2. Nhập xuất tự tính

   1/

   p:=1;

   for i :=1 to n do if i mod 2=0 then p:=p*i;

   if n mod 2=1 then p:=p*n;

   2/

   Kt:=true; // kt : boolean

   For i:=2 to round(sqrt(n)) do

       if n mod i =0 then 

           Begin

              Kt:=false;

              Break;

           End;

   if kt := true then write(n,’ la so nt’) else ngược lại;

   Bình luận