nhập n và đảo ngược n
Những câu hỏi liên quan
Lập trình nhập vào một số nguyên dương n có ba chữ số. In ra màn hình số đảo ngược của n. Lưu ý số đảo ngược không có chữ số 0 đứng đầu, ví dụ số đảo ngược của 120 là 21. Input: Gồm 1 dòng chứa số nguyên n. Output: Ghi ra số đảo ngược của n. Sample Input 312 Sample Output 213
Xem chi tiết
uses crt;
var st:string;
d,i,n:integer;
begin
clrscr;
readln(n);
str(n,st);
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình nhập vào số nguyên n và in ra số đảo ngược từ biến mảng
#include <bits/stdc++.h>
using namespace std;
string s;
int main() {
ios_base::sync_with_stdio(false);
cin.tie(NULL);
cout.tie(NULL);
cin>>s;
reverse(s.begin(),s.end());
cout<<s;
return 0;
}
Đúng 0
Bình luận (0)
7 tháng 3 2023 lúc 15:41
Viết chương trình pascal cho nhập vào số nguyên dương n(n<32000).In ra số đảo ngược.
Program HOC24;
var n: integer;
i: byte;
begin
write('Nhap N: '); readln(n);
write('So dao nguoc la: ');
while n<>0 do
begin
write(n mod 10);
n:=n div 10;
end;
readln
end.
Đúng 2
Bình luận (0)
viết chương trình nhập vào số n in ra màn hình số đảo ngược của n
program bai1;
var n:real;
begin
write('N= ');readln(n);
writeln('So dao nguoc cua ',n,' la 1/,n);
readln
end.
Đúng 1
Bình luận (0)
program bai1;
var n,t:longint;
s:real;
begin
write('N= ');readln(n);
t:=n;
while n<>0 do
begin
S:=S*10+n mod 10;
n:=n div 10;
end;
If S=t then writeln('so doi xung')
else writeln('khong doi xung');
readln;
end.
Đúng 1
Bình luận (1)
Xem thêm câu trả lời
Viết chương trình đảo ngược một số nguyên được nhập từ bàn phím
uses crt;
var n,i:integer;
st:string;
begin
clrscr;
write('nhap n='); readln(n);
str(n,st);
for i:=length(st) downto 1 do
write(st[i]);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình:
nhập vào số n, xuất ra màn hình số đảo ngược của n
vd: n=15
→51
viết chương trình nhập vào 1 mảng n số nguyên in ra màn hình giá trị đảo ngược của mảng đó
var a: array[1..100] of integer;
i,n:integer;
begin
writeln('nhap n: '); readln(n);
for i:=1 to n do
begin
readln(a[i]);
end;
for i:=1 to n do
begin
if a[i]=1 then write(1)
else
write('1','/',a[i],' ');
writeln;
end;
readln
end.
Đúng 1
Bình luận (0)
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:=n downto 1 do
write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
viết ct:
a) nhập vào dãy số nguyên gồm n phân tử
b) tính tích các phần tử chẵn có trong dãy
c) in đảo ngược dãy sô
Bài 1
Var a:array:[1..1000] of integer;
i,n:integer;
p:longint;
Begin
p:=1;
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
if a[i] mod 2 = 0 then p:=p*a[i];
End;
Write('Tich cac so chan la: ',p);
Write('Day viet nguoc lai la ');
For i:=n downto 1 do
Write(a[i]:8);
Readln
End.
Đúng 1
Bình luận (0)
program TinhTichVaInDaoNguoc;
var a: array[1..1000] of integer;
i, n: integer;
s: longint;
begin
s := 1;
write'(nhap vao n : ');
readln(n);
for i := 1 to n do
begin
write('Nhap so thu ', i, ' = ');
readln(a[i]);
if a[i] mod 2 = 0 then
s := s * a[i];
end;
writeln('Tich cac so chan la: ', s);
writeln('Day viet nguoc lai la: ');
for i := n downto 1 do
write(a[i]:8);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình sử dụng chương trình con (Pascal)
- Tính n! với n nguyên dương?
- Đảo ngược xâu st cho trước?
- Đếm số nguyên dương N có bao nhiêu chữ số?
- Kiểm tra tính đối xướng của một xâu st cho trước?
- Viết ra n số nguyên tố đầu tiên?
- Nhập 1 dãy số nguyên dương, sau đó viết ra số nguyen dương trong dãy?
Cái này mình viết chương trình chính thôi, bạn tự viết ctc nhé
Câu 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (1)
Câu 2:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.
Đúng 1
Bình luận (0)
Câu 3:
uses crt;
var n:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
writeln('So ',n,' co ',length(st),' chu so');
readln;
end.
Đúng 1
Bình luận (0)
Xem thêm câu trả lời