Viết chương trình tính tích từ 1 đến 10 (sử dụng lệnh lặp while...do) Giup mk vs mai nộp r !!!
2 câu trả lời
uses crt;
var i,tich:longint;
begin
clrscr;
tich:=1; i:=1;
while i<=10 do
begin
tich:=tich*i;
i:=i+1;
end;
writeln('Tich la: ',tich);
readln
end.
uses crt;
var i, t : longint;
begin
clrscr;
t := 1; i := 1;
while i <= 10 do
begin
t := t * i;
i := i + 1;
end;
write('1 x 2 x ... x 10 = ', 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
