viết chương trình tích của các số tự nhiên từ 1 đến n bằng vòng lặp while
2 câu trả lời
uses crt;
var i,n : integer;
s : longint;
Begin clrscr;
s:=1; i:=1;
Write('Nhap n='); readln(n);
While i < n then
begin
s:=s*i;
i:=i+1;
end;
write('Tich s=', s);
readln
end.
Uses crt;
Var i,n : integer;
s : real;
Begin
Clrscr;
Write('Nhap so n=');
Readln(n);
S:=1; i:=1;
While i<=n do begin s:=s*i; i:=i+1 end;
write('tich la', s);
readln
end.
Nhập thấy sai gì báo mình sửa cho
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
