Tin học Viết chương trình tính tổng từ 100 đến 1000. 19/07/2021 By Kennedy Viết chương trình tính tổng từ 100 đến 1000.
program tong; uses crt; var i: integer; T: longint; Begin clrscr; T:=0; for i:=100 to 1000 do T:=T+i; write(‘T = ‘,T); readln End. Trả lời
program tong_so; uses crt; var i:integer; t:longint; begin clrscr; t:=0; for i:=100 to 1000 do t:=t+i; write(‘Tong la: ‘,t); readln; end. Trả lời