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ố?
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 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 :((
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ố 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
Câu 1: viết chương trình nhập vào N số tự nhiên đầu tiên,đếm xem có bao nhiêu số là số chẵn Câu 2: Viết chương trình nhập vào N số tự nhiên tính tổng các số chia hết cho 3 Em cần gấp lắm ạ:(
1:
#include <bits/stdc++.h>
using namespace std;
long long dem,i,n,x;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%3==0) t+=x;
}
cout<<t;
return 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
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.
Câu 8. Viết thuật toán và chương trình hoàn chỉnh sử dụng câu lệnh For … do để tính tổng của 20 số tự nhiên đầu tiên S=1+2+3+...+20 (3 điểm)
Câu 9 (1 điểm). Cho đoạn chương trình: j:= 2;
For i:= 1 to 5 do j:= j + 2;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?
Giải thích?
Câu 8.
program im_14424;
uses crt;
var S: byte;
i: byte;
begin
clrscr;
S:=0;
for i:=1 to 20 do
S:=S+i;
writeln('Tong cua 20 so tu nhien dau tien la: ,S);
readln
end.
Câu 9.
j:=2 → Gán j = 2.
for i:=1 to 5 do → lặp lại 5 lần
j:=j+2 →
Lần 1: 4
Lần 2: 6
Lần 3: 10
Lần 4: 12
Lần 5: 14
Câu 1:
uses crt;
var sum,i:longint;
begin
clrscr;sum:=0;
for i:=1 to 20 do sum:=sum+i;
write(sum);
readln
end.
Câu 2:
i = 1; j = 4i = 2; j = 6i = 3; j = 8i = 4; j = 10i = 5; j = 12
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
Câu 1:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('So luong phan tu duong la: ',dem);
readln;
end.
Câu 3:
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 9 do
begin
writeln('Bang nhan ',i,' la: ');
for j:=1 to 10 do
writeln(i,'*',j,'=',i*j);
delay(200);
end;
readln;
end.
đề 1:viết chương trình tính tổng của 10 số tự nhiên đầu tiên
đề 2:viết chương trình tính tổng L 5 số tự nhiên đầu tiên(với L đc nhập từ bàn phím)
giúp mk nhé!!!!!!
tự làm là nhanh nhất
ai đòng ý xin 1 ý kiến