Nhập từ bàn phím số nguyên dương N có 4 chữ số (số tạo bởi 2 chữ số đầu nhỏ hơn 24,hai chữ số sau nhỏ hơn 60).In lên màn hình các kết quả:
Dòng 1:Số N vừa nhập
Dòng 2:Tổng các chữ số của N
Dòng 3:Số giờ tương ứng trong ngày được tạo thành từ số N.
Những câu hỏi liên quan
Nhập vào từ bàn phím số nguyên dương N (1N 10) - Dòng 1: Tổng các chữ số của N.- Dòng 2: Số lượng các số nguyên dương, không phải là số nguyên tố nhỏ hơn N - Dòng 3: Ghi hai số 7 và K cách nhau 1 dấu cách : I10 cho tổng thu K số nguyên liên tiếp bắt đầu từ Z bằng N, trường hợp tồn tại nhiều giá trị Z, thì hiển thị màn hình kết quả có giá trị Z nhỏ nhất- Dòng 4: Ghi số X là số lượng các chữ số cần dùng để chỉnh chốt quyển sách có N Ví dụ :nhập vào 15in ra d1:6d2:8d3:1 5d4:21
Đọc tiếp
Nhập vào từ bàn phím số nguyên dương N (1<N 10')
- Dòng 1: Tổng các chữ số của N.
- Dòng 2: Số lượng các số nguyên dương, không phải là số nguyên tố nhỏ hơn N
- Dòng 3: Ghi hai số 7 và K cách nhau 1 dấu cách : I10 cho tổng thu K số nguyên liên tiếp bắt đầu từ Z bằng N, trường hợp tồn tại nhiều giá trị Z, thì hiển thị màn hình kết quả có giá trị Z nhỏ nhất
- Dòng 4: Ghi số X là số lượng các chữ số cần dùng để chỉnh chốt quyển sách có N
Ví dụ :nhập vào 15
in ra d1:6
d2:8
d3:1 5
d4:21
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t,dem,j;
int main()
{
cin>>n;
x=n;
t=0;
while (n>0)
{
t=t+n%10;
n=n/10;
}
cout<<t;
dem=0;
for (i=2; i<=x; i++)
{
bool kt=true;
for (j=2; j*j<=i; j++)
if (i%j==0) kt=false;
if (kt==true) dem++;
}
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
Câu 1. Nhập số N nguyên dương và dãy N số nguyên từ bàn phím
-in ra dãy số nhập (các số in trên 1 dòng cách nhau bởi dấu cách
-tính tổng các số trong dãy chia hết cho 3, in hết kết quả ra màn hình
GIÚp mik vs ạ!!!!
# Nhập số nguyên dương N từ bàn phím
N = int(input("Nhập số nguyên dương N: "))
# Khởi tạo dãy số nguyên
numbers = []
# Vòng lặp để nhập N số nguyên và thêm chúng vào danh sách numbers
for i in range(N):
number = int(input("Nhập số thứ {}:".format(i+1)))
numbers.append(number)
# In ra dãy số đã nhập
print("Dãy số bạn đã nhập là: ", end="")
for number in numbers:
print(number, end=" ")
print()
# Tính tổng các số chia hết cho 3 và in ra màn hình
total = 0
for number in numbers:
if number % 3 == 0:
total += number
print("Tổng các số trong dãy chia hết cho 3 là: ", total)
Đúng 0
Bình luận (0)
Nhập số nguyên dương N (1≤ N ≤ 30000) từ bàn phím và đưa ra màn hình thông tin sau :Dòng 1: số M là giá trị biểu thức √1 + √2 + .... + √NDòng 2: số nguyên tố nhỏ nhất còn lớn hơn M*NDòng 3: số tự nhiên nhỏ nhất có số ước bằng phần nguyên của √N, nếu không có in số 0. Mọi Người giúp em với ạ. em đang cần câu trả lời gấp ạ
Đọc tiếp
Nhập số nguyên dương N (1≤ N ≤ 30000) từ bàn phím và đưa ra màn hình thông tin sau :
Dòng 1: số M là giá trị biểu thức √1 + √2 + .... + √N
Dòng 2: số nguyên tố nhỏ nhất còn lớn hơn M*N
Dòng 3: số tự nhiên nhỏ nhất có số ước bằng phần nguyên của √N, nếu không có in số 0.
Mọi Người giúp em với ạ. em đang cần câu trả lời gấp ạ
uses crt;
var n,i:integer;
m:real;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<=n) and (n<=30000);
m:=0;
for i:=1 to n do
m:=m+sqrt(i);
writeln('m=',m:4:2);
readln;
end.
Đúng 1
Bình luận (1)
Nhập hai nguyên dương N từ bàn phím và đưa ra màn hình thông tin sau :Dòng 1: vị trí của chữ số 0 đầu tiên trong phần thập phân của số √NDòng 2: số có nhiều ước nhất trong đoạn từ √N đến NDòng 3: hai số nguyên tố a, b thỏa mãn a + b N (hai số cách nhau bởi dấu cách)Dòng 4: số hoàn chỉnh nhỏ nhất còn lớn hơn Ngiúp em với ạ em cảm ơn ạ
Đọc tiếp
Nhập hai nguyên dương N 
từ bàn phím và đưa ra màn hình thông tin sau :
Dòng 1: vị trí của chữ số 0 đầu tiên trong phần thập phân của số √N
Dòng 2: số có nhiều ước nhất trong đoạn từ √N đến N
Dòng 3: hai số nguyên tố a, b thỏa mãn a + b = N (hai số cách nhau bởi dấu cách)
Dòng 4: số hoàn chỉnh nhỏ nhất còn lớn hơn N
giúp em với ạ em cảm ơn ạ
Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện+ dòng 1 xuất ra màn hình dãy số vừa nhập+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó Giúp với !!
Đọc tiếp
Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện
+ dòng 1 xuất ra màn hình dãy số vừa nhập
+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?
+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?
+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?
+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó Giúp với !!
uses crt;
var a:array[1..100]of integer;
i,n,t,t1,t2,t3,min,max:integer;
kt:boolean;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
kt:=true;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt:=false;
break;
end;
writeln('Tong cua day so la: ',t);
if (kt=true) and (t>1) then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
writeln('Cac so o vi tri le cua day so la: ');
t1:=0;
for i:=1 to n do
if i mod 2=1 then
begin
write(a[i]:4);
t1:=t1+a[i];
end;
writeln;
writeln('Tong cac so o vi tri le cua day so la: ',t1);
if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')
else writeln(t1,' khong la so chinh phuong');
writeln('Cac so o vi tri chan cua day so la: ');
t2:=0;
for i:=1 to n do
if i mod 2=0 then
begin
write(a[i]:4);
t2:=t2+a[i];
end;
writeln;
writeln('Tong cac so o vi tri chan cua day so la: ',t2);
t3:=0;
for i:=1 to t2 do
if t2 mod i=0 then t3:=t3+i;
if t3=t2 then writeln(t2,' la so hoan hao')
else writeln(t2,' khong la so hoan hao');
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat cua day la: ',max);
writeln('So nho nhat cua day la: ',min);
writeln('Tong cua so lon nhat va so nho nhat la: ',max+min);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện
+ dòng 1 xuất ra màn hình dãy số vừa nhập
+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?
+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?
+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?
+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó
Giúp với !!
Đọc tiếp
Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện
+ dòng 1 xuất ra màn hình dãy số vừa nhập
+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?
+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?
+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?
+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó
Giúp với !!
uses crt;
var a:array[1..100]of integer;
n,i,t,kt,j,t1,t2,t3,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so vua nhap la: ',t);
kt:=0;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt:=1;
break;
end;
if (kt=0) and (t>1) then writeln(t,' la so nguyen to');
else writeln(t,' khong la so nguyen to');
t1:=0;
writeln('Cac so o vi tri le cua day la: ');
for i:=1 to n do
if i mod 2=1 then
begin
write(a[i]:4);
t1:=t1+a[i];
end;
writeln;
writeln('Tong cac so o vi tri le la: ',t1);
if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')
else writeln(t1,' khong la so chinh phuong');
t2:=0;
writeln('Cac so o vi tri chan la: ');
for i:=1 to n do
if i mod 2=0 then
begin
write(a[i]:4);
t2:=t2+a[i];
end;
writeln;
writeln('Tong cac so o vi tri chan la: ',t2);
t3:=0;
for i:=1 to t2 do
if t2 mod i=0 then t3:=t3+i;
if t3=t2 then writeln(t2,' la so hoan hao')
else writeln(t2,' khong la so hoan hao');
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
writeln('Tong cua hai so lon nhat va nho nhat la: ',max+min);
readln;
end.
Đúng 1
Bình luận (1)
VCT pascal nhập số n từ bàn phím xuất ra màn hình:
+dòng 1:các ước của n
+dòng 2:nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 1 đến n
+dòng 3: nếu n là số chẵn thì xuất ra màn hình các số hoàn hảo
+dòng 4:tổng các ước của n
(Bài thì cuối kỳ của mình nên cần rất gấp mong nhận được câu trả lời sớm)
1. Anh (chị) hãy viết chương trình tính tổng các số nguyên t hat O nhỏ hơn N (N là số nguyên dương nhập từ bàn phím).
Ví dụ: Nhập N = 10 thì in ra màn hình như sau: 2 + 3 + 5 + 7 = 17 ( ngôn ngữ C )
#include <stdio.h>
int main(){
int n;
scanf("%d",&n);
long t=0; int i,j;
for (i=2; i<=n; i++){
int c=0;
for (j=2; j<i; j++)
if (i%j==0) c++;
if (c==0) t=t+i;
}
printf("%d",t);
return 0;
}
Đúng 2
Bình luận (0)
Bạn trình bày lại đề bài rõ hơn nha, đề đọc rất khó hiểu ấy.
Đúng 0
Bình luận (2)
Viết chương trình nhập vào số nguyên dương N (1<N<10^10) từ bàn phím, Hãy sắp xếp lại các chữ số của N sao cho ta được số lớn nhất, in kết quả ra màn hình
uses crt;
var n,i,d,x,j,tam:longint;
a:array[1..11]of integer;
st:string;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
str(n,st);
d:=length(st);
for i:=1 to d do
begin
val(st[i],a[i],x);
end;
for i:=1 to d-1 do
for j:=i+1 to d do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to d do
write(a[i]);
readln;
end.
Đúng 1
Bình luận (0)