viết chương trình tìm số N nhỏ nhất để /N<0.0005 viết chương trình tìm số N nhỏ nhất sao cho tổng S>10000 S=1+2+3+...+N in ra kết quả của S và N tìm được

1 câu trả lời

1. Đề thiếu.

2.

uses crt;
var S,n:integer;
begin
   clrscr;
   S:=0; n:=1;
   while S<=10000 do
   begin
      S:=S+n;
      n:=n+1;
   end;
   writeln('S la: ',S);
   writeln('n la: ',n);
   readln
end.

Câu hỏi trong lớp Xem thêm