Question

Câu 2 , 3 nha mọi người

Answer 1

Câu 3:

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap so doi bong:'); readln(n);

t:=0;

for i:=1 to n-1 do

t:=t+i;

writeln(t);

readln;

end.