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 ra màn hình N có phải là số nguyên tố hay ko?

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;

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.