Thêm mật khẩu là gì nữa em ơi!

C. Hub

Var i,s:longint;

Begin

For i:=100 to 1000 do

s:=s+i;

Write('Tong cac so tu 100 den 1000 la ',s);

Readln;

End.

Làm sai be bét!!!

Sai be bét chứ đúng gì!!!!

Var i,s:integer;

Begin

For i:=1 to 10 do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

Sai rồi em!