viết chương trình với thuật toán sau:
Bước 1. S←0,n←0
Bước 2. Nếu S ≤ 1000 thi chuyển tới bước 3; ngược lại ( S>1000) chuyển tới bước 4
Bước 3. n←n+1; S←S+n; và quay lại bước 2
Bước 4. In kết quả: S và n là số tự nhiên nhỏ nhất sao cho S > 1000. Kết thúc thuật toán.
GIÚP MK VS
program thuat_toan;
uses crt;
var s,n:integer;
begin
clrcr;
S:=0; n:=0;
while s<=1000 do
begin
n:=n+1;
S:=S+n;
end;
writeln(‘Gia tri cua S va n la so tu nhien nho nhat de S>1000 la:’);
writeln(‘S= ‘,s);
writeln(‘n= ‘,n);
readln;
end.
Uses crt;
var s,n:integer;
begin
clrscr;
s:=0;n:=0;
while s<=1000 do
begin
n:=n+1;
s:=s+n;
write(‘ so tu nhien nho nhat de s>1000 la ‘);
writeln(‘s= ‘,s);
writeln(‘n= ‘,n);
end;
readln
end.
____5 sao nếu hay:)