Viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì dừng lại .
Những câu hỏi liên quan
viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó lớn hoặc bằng 100 thì dừng lại 
uses crt;
var i,t:integer;
begin
clrscr;
i:=1;
t:=0;
repeat
t:=t+i;
inc(i);
until t>=100;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết Chương Trình tính tích các số tự nhiên đầu tiên cho đến khi tích đó bằng 100 thì dừng lại
chưa hiểu vấn đề@@@
xin input và output của bài đc không
Đúng 0
Bình luận (0)
Sửa đề: Đến khi tích đó lớn hơn 100 thì dừng lại
uses crt;
var s,i:integer;
begin
clrscr;
s:=1;
i:=1;
while s<=100 do
begin
i:=i+1;
s:=s*i;
end;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình tính tổng các số tự nhiên lẻ (chẳn) đầu tiên cho đến khi tổng
đó bằng 1000 thì dừng lại.
Giúp mik vì mai mik kt rùi :((
Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S1+2+3+ ...... (Khi Tổng S đầu tiên 1000 thì dừng). Hỏi cộng bao nhiêu số?Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:Program tinh_tong;Var n S: IntegerBeginn: 0;S 0;While S 1000 don: n + 1; S: S + n Writeln(‘Can cong’,n-1,’so va tong dau tien 1000 la’, S); Readln;End.
Đọc tiếp
Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S=1+2+3+ ...... (Khi Tổng S đầu tiên > 1000 thì dừng). Hỏi cộng bao nhiêu số?
Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:
Program tinh_tong;
Var n S: Integer
Begin
n: 0;
S = 0;
While S< 1000 do
n:= n + 1;
S:= S + n
Writeln(‘Can cong’,n-1,’so va tong dau tien > 1000 la’, S);
Readln;
End.
viết chương trình tính tỗng các số tự nhiên đầu tiên cho đến khi dó bằng 10 thì dừng lại.
Cho mình bt đáp án s :D
đề:viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 10 thì dừng lại. vậy đúng chưa
Đúng 1
Bình luận (0)
Xem thêm câu trả lời
cho chương trình tính tổng các số tự nhiên từ S=1+2+3+....( khi tổng S đầu tiên > 1000 thì dừng). Hỏi cộng bao nhiêu số?
viết chương trình tính tổng 100 số tự nhiên chẵn đầu tiên
tk:
https://hoc247.net/hoi-dap/tin-hoc-8/viet-chuong-trinh-tinh-tong-100-so-tu-nhien-dau-tien-faq247722.html
Đúng 0
Bình luận (3)
Viết chương trình nhập vào các số nguyên cho đến khi nhập số chẵn thì dừng lại. Tính tổng các số nguyên dương vừa nhập
uses crt;
var a,t:integer;
begin
clrscr;
t=0;
repeat
readln(a);
if (a>0) then t:=t+a;
until (a mod 2=0);
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì dừng lại?
program ctdt;
uses crt;
var i,tong:integer;
(*-----------------------*)
begin
clrscr;
tong:=0;i:=0;
while tong<=100 do
begin
i:=i+1;
tong:=tong+i;
end;
readln;
end.
Đúng 0
Bình luận (0)
mô tả thuật toán Viết chương trình tính tổng 100 số tự nhiên đầu tiên