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
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