Viết chương trình tính tích A=1*2*3*4*…*(n-1)*n sao cho tích A là một số tự nhiên lớn nhất có 3 chữ số. Cứu em với. Viết chương trình pascal khó quá đi ạ
2 câu trả lời
uses crt;
var i,t : integer;
begin clrscr;
t:=1; i:=1;
while t<=999 do begin
t:=t*i;
i:=i+1; end;
write('Tich A lon nhat co 3 chu so do la :', t/i:0:0);
readln
end.
program kaito;
uses crt;
var n, a: integer;
begin
clrscr;
a:=1; n:=1;
while a<1000 do begin n:=n+1; a:=a*n; end;
writeln('A = ',a);
readln;
end.
CHÚC BẠN HỌC TỐ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
- Đề 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
