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.