cho biết T= 1+2=+3....+N. Hãy viết chương trình tìm số tự nhiên N nhỏ nhất sao cho T>200

2 câu trả lời

Program BTH;
Uses crt;
Var n,t:longint;
Begin
        clrscr;
        t:=0;
        Repeat
                n:=n+1;
                t:=t+n;
        Until t>200;
        Write(n,' la so tu nhien nho nhat de t>200');
        readln;
end.

Program tong;

Uses crt;

Var n , s , k: integer; 

Begin Write(‘ Nhap N:’); 

Readln(N ); 

S := 0; While ( T>200 ) do 

Begin k := N mod 0; 

N := N div 200; 

End;

Writeln( ‘số tự nhiên N nhỏ nhất ’,N,’ la :’, N); 

Readln;

End.