hãy mô tả cấu trúc lặp với số lần biết trước dạng tiến trong Pascal? Áp dụng viết lệnh tổng các số nguyên từ 100 đến 200?
2 câu trả lời
for <biến đếm> :=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Áp dụng:
uses crt;
var i,tong:integer;
BEGIN
tong:=0;
for i:=100 to 200 do
tong:=tong+i;
readln
END.
uses crt;
var i, S : integer;
begin
clrscr;
S := 0; for i := 100 to 200 do S := S + i;
write('S = ', S);
readln
end.
Câu hỏi trong lớp
Xem thêm
