2 câu trả lời
Program Tinh_tong;
Uses Crt;
Var i, S: Integer;
Begin Clrscr;
S:=0;
i:=1;
While S>=100 do Begin S:=S+i; i:=i+1;
End;
Writeln('Ket qua',S);
Readln;
End.
toán học
S=5050
Program Tinh_tong;
Uses Crt;
Var i, S: Integer;
Begin Clrscr;
S:=0;
i:=1;
While S>=100 do Begin S:=S+i; i:=i+1;
End;
Writeln('Ket qua',S);
Readln;
End.
xin hay nhất! :)))
