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 nhập từ bàn phím
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
