1,viết chương trình tổng, tích của n số tự nhiên
2, viết chương trình yêu cầu người sử dụng nhập vào 1 số trong khoảng từ 1 đến 10 và yêu cầu nhập lại nếu số không thỏa mãn
3, hãy chỉ ra lỗi trong các câu lệnh sau đây
a) X:= 10; while X:=10 do X:= X + 5
b) X:=10; X = 10 do X = X + 5
c) S:= 0; n:= 0; while S <= 10 do n:= n + 1; S:= S + n...
Đọc tiếp
1,viết chương trình tổng, tích của n số tự nhiên
2, viết chương trình yêu cầu người sử dụng nhập vào 1 số trong khoảng từ 1 đến 10 và yêu cầu nhập lại nếu số không thỏa mãn
3, hãy chỉ ra lỗi trong các câu lệnh sau đây
a) X:= 10; while X:=10 do X:= X + 5
b) X:=10; X = 10 do X = X + 5
c) S:= 0; n:= 0; while S <= 10 do n:= n + 1; S:= S + n
bài 1
var i,n,S:longint;
begin
writeln('n=');
readln(n);
S:=0;
i:=0;
for i:=1 to n do
S:=S+n;
writeln('S=',S);
readln
end.
3
a) s:= 0 while X:=10 \(\rightarrow\) X<= 10
b) thiếu câu lệnh
c) n:=1