viết chương trình tích các số nguyên lẻ P=1^2*3^2*5^2*…*n^2(môn tin học nha)

0 bình luận về “viết chương trình tích các số nguyên lẻ P=1^2*3^2*5^2*…*n^2(môn tin học nha)”

1. uses crt;

   var n,i: integer;

         P: longint;

   Begin

            clrscr;

            write(‘Nhap n: ‘); readln(n);

            if n mod 2=0 then

            begin

                     write(‘Nhap lai n la so le: ‘); readln(n);

            end;

            for i:=1 to N do

            if i mod 2<>0 then P:=P*i*i;

            write(n,’^2 = ‘,P);

            readln

   End.

   Bình luận

2. Đáp án:uses crt;

   var

   i,N: integer;

   S;T: real;

   begin

   T:=1;

   write(‘nhap so N;=’); readln(N);

   If (N mod 2 = 0) then write(‘khong hop le’)

                               else

   begin

   for i:=1 to N do

   begin

   S:=1; 

   if (i mod 2 <> 0) then S:=i*i

   T:=T*S;

   end;

   writeln(‘tich cua cac so nguyen le la ‘,T);

   end;

   readln

   end.

    

   Giải thích các bước giải:

    

   Bình luận