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.
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
20 tháng 4 2021
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.
20 tháng 4 2021
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.
19 tháng 4 2022
#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;
}
NT
5
AP
23 tháng 4 2021
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.
23 tháng 4 2021
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.
ML
29 tháng 4 2021
Program HOC24;
var a: array[1..32000] of integer;
i,n,d: integer;
begin
write('Nhap N: ');
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Day vua nhap la: ');
for i:=1 to n do write(a[i],' '); writeln;
d:=0;
for i:=1 to n do if a[i]>0 then d:=d+1;
write('Co ',d,' so duong');
readln
end.
7 tháng 5 2021
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
7 tháng 3 2023
Uses crt;
var i,n,x: integer;
begin clrscr;
readln(n);
for i:=1 to n do x:=x*i;
writeln(x);
readln;
end.
18 tháng 12 2021
Bài 2:
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin >>x>>y;
cout<<x<<" "<<y;
swap(x,y);
cout<<x<<" "<<y;
return 0;
}
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.