Viết chương trình tính tổng của n số tự nhiên đầu tiên sao cho tổng nhỏ hơn hoặc bằng Q
Câu 22 Sử dụng vòng lặp While … do…Để viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 500.
Program HOC24;
var i,n,t: integer;
begin
t:=0; i:=1;
while t<=500 do
begin
t:=t+i;
i:=i+1;
end;
write('Ket qua la: ',t);
readln
end.
Viết chương trình tính tổng của các số tự nhiên chẳn đầu tiên sao cho lớn hơn 69
uses crt;
var n,i,t:integer;
begin
n:=0;
t:=0;
repeat
n:=n+2;
t:=t+n;
until t>69;
writeln(n);
writeln(t);
readln;
end.
uses crt;
var t,n:integer;
begin
clrscr;
t:=0;
n:=0;
while t<=10 do
begin
n:=n+1;
t:=t+n;
end;
writeln(t);
readln;
end.
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.
viết chương trình tính tổng các số chẵn nhỏ hơn hoặc bằng N với N là số tự nhiên được nhập vào từ bàn phím
S=2+4+6.......
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
write(t);
readln;
end.
Viết chương trình tính tổng của N số tự nhiên đầu tiên
Viết chương trình in ra màn hình tổng các số chẵn nhỏ hơn hoặc bằng N và tổng các số lẽ nhỏ hơn hoặc bằng N. Với N là số tự nhiên N nhập từ bàn phím.
Ví dụ: -Input: n=6, {1,2,3,4,5,6}
- Output: - Tổng số chẵn: 12;
- Tổng số lẽ: 9;
Viết chương trình tính tổng của các số tự nhiên n đến tổng đầu tiên lớn hơn 1001
Giúp mk vs ạ chiều nay mk thi cuối kì 2 gòi
Var n,s:integer;
Begin
n:=0;
While s<=1000 do
begin
n:=n+1;
s:=s+n;
End;
Write('Tong dau tien lon hon 1000 la ',s);
Readln;
End.
Tham khảo link: https://hoc24.vn/cau-hoi/viet-chuong-trinh-tinh-tong-cua-n-so-tu-nhien-dau-tien-sao-cho-tong-nho-hon-hoac-bang-1000giup-minh-voi-thu-6-thi-roi.180444032537
VIẾT CHƯƠNG TRÌNH TÍNH TỔNG S = 1+2+3+....N SAO CHO TỔNG S NHỎ NHẤT > 700 KHI CHẠY CHƯƠNG TRÌNH SẼ CHO KẾT QUẢ NHƯ SAU: S NHỎ NHẤT ĐỂ TỔNG > 700 LÀ= 38 S ĐẦU TIÊN LỚN HƠN 700 LÀ = 703
Uses crt;
var
begin clrscr;
k:=1;
s:=0;
while (s<700) do begin
k:=k+1
s:=s+k;
end;
writeln(s,' ',k);
readln;
end;