Viết chương trình sử dụng lệnh lặp while……do để thực hiện các nhiệm vụ sau đây. Nhập vào từ bàn phím một số tự nhiên n(0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình sử dụng lệnh lặp while-..do để thực hiện các nhiệm vụ sau đây. Nhập vào từ bàn phím một số tự nhiên n(0
0 bình luận về “Viết chương trình sử dụng lệnh lặp while-..do để thực hiện các nhiệm vụ sau đây. Nhập vào từ bàn phím một số tự nhiên n(0<n<=100). Khi người sử dụn”
Program Tinh_giai_thua;
Uses Crt;
Var N, i: integer;
P: longint;
Begin
Clrscr;
Write(“Nhap vao so N=”); readln(N);
If (n<0) or (n>100) then
Begin
Write(” Nhap lai so N=”; readln(N);
End;
P:=1; i:=1;
If (n>0) and (n<=100) then while i<=n do
Begin
P:= P*i;
i:= i+1;
End;
Writeln(N,”!=”,P);
Readln;
End.
Mik ko ghi lại đề nha:
-if (n<0) or (n>100) then
-if (n>0) and (n<=100) then while i<=n do