Question

Mk đang cần gấp ạ , đề là :
viết chương trình in ra màn hình tổng các số tự nhiên nhỏ hơn 2020

Answer 1

uses crt;

var i,t:longint;

begin

clrscr;

t:=0;

for i:=1 to 2019 do 

  t:=t+i;

writeln(t);

readln;

end.