2 câu trả lời
Bạn thử lệnh sau nhé:
Program tong;
Uses crt;
Var
x,dem:Integer;
Begin
Clrscr;
dem:=1;x:=0;
While (dem<=100) do
Begin
x:=x+dem;
dem:=dem+1;
End;
Writeln('Tong cua 100 so do la ',x);
Readln;
End.
Chúc bn học tốt!!! <3
- Đề 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
