Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Mình sẽ cộng lầm lượt từng số từ 1 đến n để đc tổng s = 1+2+3+...+n. Mình lại tiếp tục cộng để được giá trị nhỏ nhất nhưng > 1000.
Chuong trinh
Program tinhtong;
uses crt;
VAR s1,s2, i, n:longint;
BEGIN
clrscr;
s1 := 0;
{Tinh tong s tu 1 den n}
Write('Nhap N: '); Readln(n);
For i:= 1 to n do s1:= s1 + i;
{Tim so n nho nhat de cho s > 100}
i:=0;
s2 := 0;
While s2 <= 1000 do
begin
i := i + 1;
s2 := s2 + i;
end;
Writeln('Tong s = ',s1);
Writeln('So n nho nhat de s > 1000 la:',i);
Readln;
END.
Hãy giúp mọi người biết câu trả lời này thế nào?
uses crt;
var S,n,i,a:integer;
begin
write('nhap n:');readln(n);
S:=0;
for i:=1 to n do S:=S+1;
writeln('Tong S=',S);
S:=0;
a:=0;
for i:=1 to n do
begin
S:=S+i;
a:=a+1;
if S>1000 then break;
end;
writeln('So n nho nhat de S<1000 la',a-1:2);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
CÂU HỎI MỚI NHẤT
Bài1 tìm từ có cách phát âm khác
Bài 2 Tìm từ có cách phát âm khác
Viết đoạn văn ngắn (khoảng 150 chữ) ghi lại cảm xúc của em về bài thơ "Mẹ là tất cả"ko lấy trên mạng ạ
Viết một đoạn văn ghi lại cảm nghĩ của em sau khi đọc đoạn thơ “Những mùa hoa bay “ của Nguyễn Thị Khánh Hà