Question

Giúp tui câu 2-3 với ạ tui cảm ơn nhiều

Answer 1

Câu 2: 

uses crt;

var i,n,t:integer;

begin

clrscr;

n:=0;

t:=0;

repeat

n:=n+1;

t:=t+n;

until t>100;

writeln(t);

readln;

end.

 

Answer 2

C2:

var i,s: integer;

begin

while s<=100 do begin

s:=s+i;

i:=i+1;

end;

write(s);

readln

end.