Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1769
1692
Đây là câu trả lời đã được xác thực
Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
program Min;
uses crt;
var i,n,s:integer;
begin
clrscr;
write('Nhap N = '); readln(n);
i:=1; s:=0;
repeat
i:=i+1; s:=s+i;
until s>n;
writeln('So tren cay la: ',i-1);
readln
end.
Hoặc
program Min;
uses crt;
var i,n,s:integer;
begin
clrscr;
write('Nhap N = '); readln(n);
i:=1; s:=0;
while n-i>0 do
begin
n:=n-i;
inc(i);
end;
writeln('So tren cay la: ',i);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
12
10
uses Crt ;
var
N: Longword;
stt : Word;
begin
stt := 1;
WriteLn('Nhap N: ', N);
ReadLn(N);
while (N > stt) do
begin
N := N - stt;
stt := stt + 1;
end;
WriteLn('So thu tu cua cay: ', stt);
ReadLn
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Okke =)) dù sao mình cũng cảm ơn bạn ^^ °^° chúc bạn học tốt nhé
5346
6207
e đọc rồi nha =="
Bảng tin
12
104
10
Ở ct thứ 1, biến i phải khởi tạo là giá trị 0 mới đúng
1769
28435
1692
Mình đã thử với nhiều test và kết quả đều đúng mà nhỉ @@
12
104
10
Khi mik N nhập N = 15 thì kết quả ra 6, đáng lẽ phải là 5 chứ
1769
28435
1692
Để ra Tết mình sẽ kiểm tra lại nha :v
1769
28435
1692
Đã kiểm tra xong rồi nha, ở chương trình đầu tiên viết ra i-1 là đúng nhé :D
10
1553
13
cho mk xin ý tưởng
0
50
0
ông giỏi phần pascal thế, có mẹo gì ko cho tôi xin với