Question

1.Viết chương trình tính tổng các số tự nhiên từ 100 đến 1000.

giúp mình nhé

Answer 1

Tham khảo:

 

uses crt;

var i:integer;

s:real;

begin

clrscr;

s:=0;

for i:=100 to 1000 do 

 s:=s+i;

writeln(s:0:0);

readln;

end.

Answer 2

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.