Viết chương trình tính tổng 10 số tự nhiên đầu sử dụng vòng lặp while ...... do
2 câu trả lời
Program baitap;
Uses crt;
Var i,S:integer;
Begin
Clrscr;
S:=0; i:=1;
While i<10 do
Begin
S:=S+i;
i:=i+1;
End;
Writeln('Tong 10 so tu nhien dau tien:',S);
Readln
End.
_____________________________
Đã test
uses crt;
var i, S : longint;
begin
clrscr;
S := 0; i := 0;
while i < 10 do
begin
i := i + 1;
S := S + i;
end;
write('S = ', S);
readln
end.
- Đề 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
