Quảng cáo
1 câu trả lời 1451
Program bai1;
Var S,i : integer;
Begin
S:=0; i:=0;
While i> 1000 do begin
i:=i+1;
S:=S+i;
end;
Write ('gia tri cua S la', S);
Readln;
End.
Var S,i : integer;
Begin
S:=0; i:=0;
While i> 1000 do begin
i:=i+1;
S:=S+i;
end;
Write ('gia tri cua S la', S);
Readln;
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45552
-
Hỏi từ APP VIETJACK28478
-
Đã trả lời bởi chuyên gia
28474
Gửi báo cáo thành công!
