Nhập vào một số nguyên và đưa ra dãy số ngược lại. Vd: 1234 -> 4321
Những câu hỏi liên quan
Viết chương trình nhập vào một dãy số n nhỏ hơn hoặc bằng 255 nhập vào một số nguyên k cho biết có k trong dãy số vừa nhập 20 ngược lại đưa ra câu thông báo không có k trong dãy số
Xem chi tiết
uses crt;
var a:array[1..255]of integer;
i,n,k,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
kt:=0;
for i:=1 to n do
if a[i]=k then kt:=1;
if kt=0 then writeln(k,' khong co trong day')
else writeln(k,' co trong day');
readln;
end.
Đúng 1
Bình luận (0)
\(\dfrac{s}{13}=\dfrac{2s}{3-vn}+\dfrac{2s}{3+vn}\)
\(\dfrac{s}{13}=\dfrac{2s\left(3+vn\right)+2s\left(3-vn\right)}{9-vn^2}\)
\(\dfrac{s}{13}=\dfrac{12s}{9-vn^2}\)
\(s\left(9-vn^2\right)=12s\cdot13\)
\(s\left(9-vn^2\right)=156s\)
\(9-vn^2=156\)
\(vn^2=-147\)
Đúng 1
Bình luận (0)
BT: Viết chương trình nhập vào một dãy N số nguyên dương (N150), nhập vào số nguyên dương K.1. Tìm và đưa ra màn hình số lớn nhất (Max) của dãy vừa nhập, nếu dãy có nhiều số đạt Max thì tính tổng Max và đưa ra màn hình tất cả các vị trí đạt Max.2. Tìm và đưa ra màn hình số nhỏ nhất (Min) của dãy vừa nhập, nếu dãy có nhiều số đạt Min thì tính tổng Min và đưa ra màn hình tất cả các vị trí đạt Min3. Đếm và tính tổng các số ở vị trí chẵn là bội của số K trong dãy vừa nhập và đưa kết...
Đọc tiếp
BT: Viết chương trình nhập vào một dãy N số nguyên dương (N<=150), nhập vào số nguyên dương K.
1. Tìm và đưa ra màn hình số lớn nhất (Max) của dãy vừa nhập, nếu dãy có nhiều số đạt Max thì tính tổng Max và đưa ra màn hình tất cả các vị trí đạt Max.
2. Tìm và đưa ra màn hình số nhỏ nhất (Min) của dãy vừa nhập, nếu dãy có nhiều số đạt Min thì tính tổng Min và đưa ra màn hình tất cả các vị trí đạt Min
3. Đếm và tính tổng các số ở vị trí chẵn là bội của số K trong dãy vừa nhập và đưa kết quả ra màn hình.
4. Đếm và tính tổng các số ở vị trí lẻ là ước của số K trong dãy vừa nhập và đưa kết quả ra màn hình.
5. Số a và số b là anh em của nhau nếu a = b + 1 hoặc b = a + 1. Đếm và tính tổng các số là anh em của K trong dãy vừa nhập và đưa kết quả ra màn hình.
uses crt;
var a,vtmax,vtmin:array[1..100]of integer;
n,i,max,min,dem,t,dem1,t1,dem2,t2,dem3,t3,dem4,t4,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('So lon nhat trong day la: ',max);
dem:=0;
t:=0;
for i:=1 to n do
if max=a[i] then
begin
inc(dem);
t:=t+a[i];
vtmax[dem]:=i;
end;
if dem>1 then
begin
writeln('Tong cac so max la: ',t);
writeln('Cac vi tri co so max la: ');
for i:=1 to dem do
write(vtmax[i]:4);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('So nho nhat trong day la: ',min);
dem1:=0;
t1:=0;
for i:=1 to n do
if min=a[i] then
begin
inc(dem1);
t1:=t1+a[i];
vtmin[dem1]:=i;
end;
if dem1>1 then
begin
writeln('Tong cac so min la: ',t1);
writeln('Cac vi tri co so min la: ');
for i:=1 to dem1 do
write(vtmin[i]:4);
end;
write('Nhap k='); readln(k);
dem2:=0;
t2:=0;
for i:=1 to n do
if (i mod 2=0) and (a[i] mod k=0) then
begin
dem2:=dem2+1;
t2:=t2+a[i];
end;
writeln('So phan tu o vi tri chan trong day la boi cua ',k,' la: ',dem2);
writeln('Tong cac so o vi tri chan trong day la boi cua ',k,' la: ',t2);
dem3:=0;
t3:=0;
for i:=1 to n do
if (i mod 2=1) and (k mod a[i]=0) then
begin
inc(dem3);
t3:=t3+a[i];
end;
writeln('So phan tu o vi tri le trong day la uoc cua ',k,' la: ',dem3);
writeln('Tong cac so o vi tri le trong day la uoc cua ',k,' la: ',t3);
dem4:=0;
t4:=0;
for i:=1 to n do
if (a[i]+k=1) or (a[i]=k+1) then
begin
inc(dem4);
t4:=t4+a[i];
end;
writeln('So phan tu la anh em cua ',k,' trong day la: ',dem4);
writeln('Tong cac phan tu la anh em cua ',k,' trong day la: ',t4);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào một số nguyên dương có hai chữ số. Hãy dùng các phép toán DIV và MOD để tính tổng hai chữ số của số đó và đưa kết quả ra màn hình? (VD: Nhập số: 25 → đưa ra màn hình: 7)
Mình dùng C++ nên div = /; mod = % nha bn!
#include <bits/stdc++.h>
using namespace std;
int main() {
int a, S;
cin >> a;
S=0;
while(a>0)
{
S+=a%10, a=a/10;
}
cout << S << endl;
return 0;
}
Chúc bn học tốt!
Đúng 1
Bình luận (1)
câu 1 : nhập vào 1 dãy số nguyên có M phần tử . đưa ra màn hình các phân tử chia hết cho 3
câu 2 : nhập vào 1 dãy số nguyên có M phần tử . đưa ra màn hình các phân tử có chỉ số lẻ và phân tử chẵn
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i] mod 3=0 then write(a[i]:4);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
writeln('Cac phan tu chan la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
writeln('Cac phan tu co chi so le la: ');
for i:=1 to n do
if i mod 2=1 then write(a[i]:4);
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 vừa đưa ra màn hình tổng và trung bình của dãy số nguyên đó
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
writeln(t/n:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Lập trình nhập từ bàn phím một dãy số nguyên. Xếp các số chia hết cho 3 vừa lẻ lên đầu dãy, các số chia hết cho 3 vừa chẵn xuống cuối dãy, các số còn lại cho vào giữa dãy. Đưa kết quả ra màn hình.
Tham Khảo:
uses crt;
var a:array[1..100]of integer;
i,n,j,tam:integer;
begin
clrscr;
write('Nhap n='); readln(n);</p><p>for i:=1 to n do</p><p> begin</p><p>write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Mảng 1 chiều B gồm N phần tử (N≤50), giá trị các phần tử là các số nguyên. Đưa ra màn hình:
- Mảng vừa nhập với thứ tự các phần tử ngược lại( NHập vào 3,6,8 đưa ra 8 6 3)
- đếm số phần tử chẵn
- Kiểm tra và đưa ra màn hình thông báo máy, A có lập thành cấp số cộng hay không.
var n,i,dem,t:integer;
a:array[1..50] of integer;
begin
dem:=0;
t:=0;
read(n);
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do
write(a[i]);
writeln;
for i:=1 to n do
if (a[i] mod 2 = 0) then dem:=dem+1;
if a[i]<a[i-1] then t:=t+1;
writeln(dem);
if t=0 then write('Co lap thanh cap so +')
else write('Ko the lap thanh cap so +');
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào từ bàn phím hai số nguyên x y nếu x>y thì đưa ra màn hình x-y ngược lại đưa ra màn hình x+y
Xem chi tiết
uses crt;
var x,y:integer;
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
if x>y then writeln(x-y)
else writeln(x+y);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào từ bàn phím hai số nguyên x y nếu x>y thì đưa ra màn hình x-y ngược lại đưa ra màn hình x+y
Xem chi tiết
uses crt;
var x,y:integer;
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
if x>y then writeln(x-y)
else writeln(x+y);
readln;
end.
Đúng 1
Bình luận (0)