Lập tính tính tổng :
Nhập số nguyên N vào từ bàn phím . Tính tổng các chữ số của N .
Những câu hỏi liên quan
lập trình nhập vào từ bàn phím số nguyên dương n tính và in ra màng hình tổng các số chẳn từ 1 đến n
#inckude <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1;i<=n; i++)
if (i%2==0) t=t+i;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập vào N số nguyên từ bàn phím, tính tổng của các số vừa nhập và in ra màn hình giá trị tổng.
Uses crt;
var n,i,x,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do begin
readln(x);
u:=u+x;
end;
writeln(u);
readln;
end.
Đúng 2
Bình luận (0)
program TongCacSoNguyen;
var
N, i, soNguyen, tong: integer;
begin
// Nhập số lượng N
write('Nhap so luong N: ');
readln(N);
// Khởi tạo tổng
tong := 0;
// Nhập và tính tổng các số nguyên
for i := 1 to N do
begin
write('Nhap so nguyen thu ', i, ': ');
readln(soNguyen);
tong := tong + soNguyen;
end;
// In ra màn hình tổng
writeln('Tong cua cac so nguyen la: ', tong);
readln;
end.
Đúng 0
Bình luận (0)
3. Nhập vào số nguyên n từ bàn phím. Viết chương trình tính tổng n giaiVới mỗi số tự nhiên N (1N1000) Tìm các số tự nhiên n thoả mãn:+ N là số nguyên tố.+ Tổng các chữ số của N cũng là số nguyên tố.Dữ liệu vào: gồm 1 dòng chứa số nDữ liêu ra: gồm 2 dòng:+ Dòng 1 ghi thông báo: ‘Các số nguyên tố nhỏ hơn bằng n thoả mãn yêucầu là:’+ Dòng 2 hiển thị các só tìm được, mỗi số cách nhau 3 ký tự trắng.Ví dụ:DL vào DL raN10 Các số nguyên tố nhỏ hơn bằng 10 thoả mãn yêu cầu là:2 3 5 7N100 Các số nguyên tố...
Đọc tiếp
3. Nhập vào số nguyên n từ bàn phím. Viết chương trình tính tổng n giai
Với mỗi số tự nhiên N (1<=N<=1000) Tìm các số tự nhiên n thoả mãn:
+ N là số nguyên tố.
+ Tổng các chữ số của N cũng là số nguyên tố.
Dữ liệu vào: gồm 1 dòng chứa số n
Dữ liêu ra: gồm 2 dòng:
+ Dòng 1 ghi thông báo: ‘Các số nguyên tố nhỏ hơn bằng n thoả mãn yêu
cầu là:’
+ Dòng 2 hiển thị các só tìm được, mỗi số cách nhau 3 ký tự trắng.
Ví dụ:
DL vào DL ra
N=10 Các số nguyên tố nhỏ hơn bằng 10 thoả mãn yêu cầu là:
2 3 5 7
N=100 Các số nguyên tố nhỏ hơn bằng n thoả mãn yêu cầu là:
2 3 5 7 11 23 29 41 43 47 61 67 83 89
Mình sẽ tạm hiểu đề này là viết chương trình in ra các số nguyên tố lớn hơn hoặc bằng n nha
#include <bits/stdc++.h>
using namespace std;
int n,m,i;
//chuongtrinhcon
bool ktnt(int n)
{
if (n<2) return false;
for (int i=2; i*i<=n; i++)
if (n%i==0) return false;
return true;
}
int main()
{
cin>>n;
cout<<"Cac so nguyen to nho hon bang n thoa man yeu cau la"<<endl;
for (int i=2; i<=n; i++)
if (ktnt(i)) cout<<i<<" ";
}
Đúng 0
Bình luận (0)
Bài 1: VCT nhập vào 1 dãy số nguyên từ bàn phím và in các phần tử của dãy số đó ra màn hình
Bài 2: VCT nhập vào 1 dãy số từ bàn phím tính tổng dãy số đó và in kết quả ra màn hình
Bài 3: VCT nhập vào 1 dãy số từ bàn phím tính tổng các số chẵn của dãy số đó và in kết quả ra màn hình
( làm giúp em lẹ ạ, mai e phải nộp rồi )
Bài 1:
program in_phan_tu;
uses crt;
var n,i:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
write(a[i]:3);
readln;
end.
Bài 2:
program tong_phan_tu;
uses crt;
var n,i,tong:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
tong:=0;
for i:=1 to n do
tong:=tong+a[i];
writeln('tong cua day la:');
readln;
end.
Bài 3:
program tong_phan_tu_chan;
uses crt;
var n,i,tong:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
tong:=0;
for i:=1 to n do
if a[i] mod 2=0 then tong:=tong+a[i];
writeln('tong cua day la:');
readln;
end.
Đúng 0
Bình luận (0)
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
1:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+i*i;
write(t);
readln;
end.
Đúng 1
Bình luận (0)
2
program bt2;
var i,n,t:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 2 = 1 then s:=s+i;
readln;
end.
Đúng 0
Bình luận (0)
Mô tả thuật toán cho bài toán sau:
Tính tổng S=1+2+…+n ( với n <100, n được nhập vào từ bàn phím)
Tính tổng s= ½ + ¼ + 1/6 + … + 1/n (0< n<1000, n được nhập vào từ bàn phím
Tìm số lớn nhất trong 1 dãy số nguyên bất kỳ được nhập vào từ bàn phím
c:
#include <bits/stdc++.h>
using namespace std;
long long ln,i,n,x;
int main()
{
cin>>n;
ln=LLONG_MIN;
for (i=1; i<=n; i++)
{
cin>>x;
ln=max(ln,x);
}
cout<<ln;
return 0;
}
Đúng 0
Bình luận (0)
20 tháng 1 2022 lúc 17:11
Lập trình nhập vào từ bàn phím 2 số nguyên dương M,N(M<N). Tính và đưa ra màn hình tổng, hiệu, tích, thương của 2 số đó?(in đc lun ạ)
program tong;
uses crt;
var M, N, S, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
s : = 0;
for i := M to N do if (i mod 2 = 0) then s:= s + i;
write (T'ong cac so chan trong pham vi tu M den N = ',s);
readln;
end.
mk mới làm tổng thui nghen
Đúng 1
Bình luận (7)
Program Tong_hieu_tich_thuong;
Uses crt;
Var a:integer;
b:integer;
Begin
clrscr;
write(‘nhap so thu 1 :’);
readln(a);
writeln(‘ban vua nhap so: ‘,a);
write(‘nhap so thu hai :’);
readln(b);
writeln(‘ban vua nhap so thu 2: ‘,b);
Writeln(a,’+’,b,’=’,a+b);
Writeln(a,’-‘,b,’=’,a-b);
Writeln(a,’*’,b,’=’,a*b);
if b<>0 then
Writeln(a,’/’,b,’=’,a/b);
readln;
End.
Đúng 1
Bình luận (0)
bạn in ra đc chx mình làm cái mới rùi đó
Đúng 1
Bình luận (2)
Xem thêm câu trả lời
Viết chương trình tính tổng vào tích của n số nguyên được nhập từ bàn phím
uses crt;
var a:array[1..100]of integer;
i,n,t,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
s:=1;
for i:=1 to n do
begin
t:=t+a[i];
s:=s*a[i];
end;
writeln('Tong la: ',t);
writeln('Tich la: ',s);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử (với n được nhập từ bàn phím, n<=15) Tính tổng các số của dãy và in kết quả tổng tính đc ra màn hình(dùng câu lệnh lặp while..do)
Var a:array[1..15] of integer;
i,s:integer;
Begin
I:=1;
While i<=15 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
Đúng 0
Bình luận (0)