Viết chương trình tính S = 1*2*3....*n Với n là số nguyên nhập từ bàn phím 1<n<10 nếu n>1 hoặc n<=10 thì yêu cầu nhập lại sử dụng while... do

357742648949854

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 22 xem

1 trả lời

Thích Trả lời

leanhb

Program BTT;
Uses crt;
Var n,i,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);

While (n<1) or (n>=10) do
Begin
Write('Yeu cau nhap lai: '); Readln(n);
End;

s:=1;
For i:=1 to n do
s:=s*i;
Write('S = ',s);
Readln;
End.

Vote (0) Phản hồi (0) 2 năm trước

dvkpcy

Đề khá sai: n>1 và n>=10 thì ko bao giờ làm đc phải n<1 và n=10

Write(‘nhap n: ‘);readln(n);

while (n<1)or(n=10) do Write(‘nhap lai n: ’);readln(n);

I:=0;

p:=1;

While i<>n do

begin

Inc(i);

p:=p*i;//p là kq

end;

phần xuất khai báo tự làm

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Cho 100 ml dung dịch AICI3 1M phản ứng với dung dịch NaOH 0,5M nhận thấy số mol kết tủa phụ thuộc vào thể tích dung dịch NaOH theo đồ thị sau, giá trị của b là? A. 350 B. 340 C. 320 D. 360

Phoiơbắc là nhà triết học theo trường phái nào?

Thực hiện phép tính -500 - ( - 200 ) - 210 - 100

Một người bán gạo với mỗi kilogam gạo người đó được lãi 20% theo giá bán .Hỏi với mỗi kilogam gạo người đó lãi được số phần trăm theo gia mua ?

Mọi người giúp mình nha mình đang cần gấp

một hình tam giác có diện tích là 288m2 đáy của hình tam giác là 32m .Để diện tích tưng thêm 72m2 thì phải tăng đáy thêm bao nhiêu m

Em hãy viết 1 bài thơ với chủ đề mái trường và thầy cô (mai e phải nộp r, mong mn giúp đỡ e ạ) (k coppy mạng thì càng tốt nha)

viết bài văn phân tích về bài thơ nhớ rừng

tìm nghiệm nguyên dương a,b,c thỏa mãn a<b<c sao cho đa thức Px=x(x+a)(x+b)(x+c)+1 là bình phương của 1 đá thức có hệ số nguyên mọi người giúp với ạ

Cho 9,55 gam hỗn hợp gồm Mg , Al và Zn tác dụng vừa đủ với 870ml dung dịch HNO3 1M thu được dung dịch chứa m gam muối và 0,06 mol hỗn hợp khí N2 và N2O . tỉ khối của hổn hợp khí so với H2 là 20,667 . giá trị của m là:

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến