Sắp xếp các lệnh sau lại cho đúng Var : i: integer; S: longint; Writeln(' Tính 100 số tự nhiên khác 0 s=:s ') Program tính tổng; S:=0 i:=1 End. Begin White i<=100 do i := i+1 S:= S + 1 Readln; begin end;

Các câu hỏi liên quan