viết chương trình tính tổng của n số tự nhiên sao cho tổng <= 22
Những câu hỏi liên quan
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.
Đúng 0
Bình luận (0)
viết chương trình tìm số tự nhiên n sao cho tổng các số tự nhiên liên tiếp từ 1 đến n là tổng lớn nhất nhỏ hơn 500
program tim_n;
uses crt;
var tong,n,i:word;
begin
clrscr;
n:=1;tong:=0;
while tong<500 do
begin
for i:=1 to n do tong:=tong+i;
if tong<500 then begin tong:=0;n:=n+1;end
else n:=n-1;
end;
write('so n thoa man dieu kien la:',n);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to 500 do
begin
t:=t+i;
if t>500 then
begin
writeln(i);
break;
end;
end;
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập số tự nhiên n. Trong các số tự nhiên nhỏ hơn n, tính tổng của tất cả các số chia hết cho 3.
#include <bits/stdc++.h>
using namespace std;
long long s,i,n;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
if (i%3==0) s=s+i;
cout<<s;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình tính tổng của N số tự nhiên đầu tiên
1. Viết chương trình nhập vào 1 số tự nhiên P. Tính và in ra màn hình các số lẻ và tổng các số lẻ từ 1 đến P.
2.Viết chương trình nhập vào 1 số tự nhiên N. Tính và in ra màn hình các số chẵn và tổng các số chẵn từ 1 đến N.
3. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là ước của N.
4. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là bội của 3 mà nhỏ hơn hoặc bằng N.
Đọc tiếp
1. Viết chương trình nhập vào 1 số tự nhiên P. Tính và in ra màn hình các số lẻ và tổng các số lẻ từ 1 đến P. 2.Viết chương trình nhập vào 1 số tự nhiên N. Tính và in ra màn hình các số chẵn và tổng các số chẵn từ 1 đến N. 3. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là ước của N. 4. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là bội của 3 mà nhỏ hơn hoặc bằng N.
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
Đúng 0
Bình luận (0)
Câu 2:
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
write('Tong cac so chan la: ',t);
readln
end.
Đúng 0
Bình luận (0)
Câu 3:
Program HOC24;
var i,t,n: integer;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do if n mod i=0 then t:=t+i;
write('Tong cac uoc cua ',n,' la: ',t);
readln
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
viết chương trình nhập số tự nhiên n sao cho 5 < n ≤100, nếu nhập sai yêu cầu nhập lại khi nào nhập đúng thì tính tổng sn:
viết chương trình tính tổng N số tự nhiên
uses crt;
var a: array[1..100] of integer;
i,n,s: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
s:=0;
for i:=1 to n do
begin
s:=s+a[i];
end;
writeln;
writeln('tong bang:',s);
readln
end.
Đúng 0
Bình luận (0)
16 tháng 3 2021 lúc 20:36
1. Viết chương trình tính tổng các số nguyên tố từ 1 đến 100 2.Số nguyên dương P được gọi là ước thực sự của số nguyên n nếu n chia hết cho P và P khác 1 và khadc chính số n . Viết thuật toán và chương trình nhập số tự nhiên n và tính tổng của nó
1:
uses crt;
var i,j,t,kt:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do
if i>1 then
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
writeln(t);
readln;
end.
Đúng 1
Bình luận (4)
Câu 2:
*Viết chương trình:
uses crt;
var n,p,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for p:=2 to n-1 do
if n mod p=0 then t:=t+p;
writeln('Tong cac uoc that su cua ',n,' la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Dễ mà bạn tự làm đi
10 tháng 5 2023 lúc 19:48
Viết chương trình tính TỔNG, TÍCH CỦA CÁC SỐ TỰ NHIÊN TỪ 1 ĐẾN N.
Đọc tiếp
Viết chương trình tính TỔNG, TÍCH CỦA CÁC SỐ TỰ NHIÊN TỪ 1 ĐẾN N.
Program HOC24;
var i,n: integer;
tong,tich: longint;
begin
write('Nhap N: '); readln(n);
tong:=0; tich:=1;
for i:=1 to n do
begin
tong:=tong+i;
tich:=tich*i;
end;
writeln('Tong la: ',tong);
write('Tich la: ',tich);
readln
end.
Đúng 3
Bình luận (0)
program TinhTongTichTu1DenN;
var n, i: integer;
tong, tich: longint;
begin
tong := 0;
tich := 1;
write('Nhap vao n: ');
readln(n);
for i := 1 to n do
begin
tong := tong + i;
tich := tich * i;
end;
writeln('Tong cac so tu 1 den ', n, ': ', tong);
writeln('Tich cac so tu 1 den ', n, ': ', tich);
readln;
end.
Đúng 1
Bình luận (0)