BÀI TẬP FREE PASCAL 1) Tính P = 1* 2* 3 * . . . *n với n là số nguyên được nhập từ bàn phím 2) Tính tổng các số lẻ từ 1 đến n với n là số nguyên được

0 bình luận về “BÀI TẬP FREE PASCAL 1) Tính P = 1* 2* 3 * . . . *n với n là số nguyên được nhập từ bàn phím 2) Tính tổng các số lẻ từ 1 đến n với n là số nguyên được”

1. 1/ Program Hotboy ; {có thể đổi tên nha em}

   Uses crt;

   Var P,n,i : real;

   Begin

   Clrscr;

   P:=1;

   Write(‘nhap so n’); 

   Readln(n);

   For i:= 1 to n do 

   P:=P*i;

   I:=i+2;

   Writeln(‘tich P la’,P); 

   Readln

   End.

   2/ 1/ Program Hotboy ; {có thể đổi tên nha em}

   Uses crt;

   Var S,n,i : real;

   Begin

   Clrscr;

   S:=0;

   Write(‘nhap so n’); 

   Readln(n);

   For i:= 1 to n do 

   P:=P+ i;

   I:=i+2;

   Writeln(‘tong S la’,S); 

   Readln

   End.

   Bình luận

2. 1)

   Uses crt;

   Var i, n , P: integer;

   Begin clrscr;

   Writeln(‘Nhap so n=’);Readln(n);

   P :=1;

   For i :=1 to n do P := P*i;

   Writeln(‘P=’, P );

   Readln

   End.

   2)

   Uses crt;

   Var i, n, T : integer;

   Begin clrscr;

   Writeln(‘Nhap so n=’);Readln(n);

   T :=0;

   For i :=1 to n do

   If i mod 2 = 1 then T := T+i;

   Writeln(‘Tong do la :’, T);

   Readln

   End.

   Bình luận