2 câu trả lời
Program Hotboy ;
Uses crt;
Var s,i : byte ;
Begin
Clrscr;
S:=0;
For i:=1 to 10 do
S:=S+i;inc(i);
Write('tong tu 1 den 10 la',S);
Readln
End.
Program BTH;
Uses crt;
Var i,s:longint;
Begin
Clrscr;
s:=0;
For i:=1 to 10 do
s:=s+i;
Writeln('Tong day so tren la: ',s);
Readln;
End.
Câu hỏi trong lớp
Xem thêm