1viết chương trình nhập n và in ra theo thứ tự ngược lại
vd:nhập 1,2,3 thì in ra 3,2,1
Những câu hỏi liên quan
Viết chương trình nhập n số từ bàn phím và in ra theo thứ tự ngược lại
Viết chương trình nhập vào mảng A gồm n nhỏ 1 = 100 các số nguyên tử sau a) tính tích các số chia hết cho 3 b)in ra màn hình giá trị nhỏ nhất chia hết cho 3 và chỉ số của nó c) in ra màn hình các phần tử của mảng đó theo thứ tự ngược lại
uses crt;
var a:array[1..100]of integer;
n,i,t,nn,kt:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=1;
for i:=1 to n do
if a[i] mod 3=0 then t:=t*a[i];
writeln(t);
kt:=0;
nn:=32567;
for i:=1 to n do
if a[i] mod 3=0 then
begin
if nn>a[i] then nn:=a[i];
kt:=1;
end;
if kt=0 then writeln('Khong co so chia het cho 3')
else writeln('So nho nhat chia het cho 3 la: ',nn);
for i:=1 to n do
if nn=a[i] then write(i:4);
writeln;
for i:=n downto 1 do
write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (1)
Viết chương trình nhập vào 1 dãy gồm n phần tử . In ra dãy theo thứ tự ngược lại
program bai1;
uses crt;
var n,i: integer;
a: array[1..100] of integer;
begin
clrscr;
write('nhap so n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
for i:= n downto 1 do write(a[i] , ' ');
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day nguoc la: ');
for i:=n downto 1 do
write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
1.Viết chương trình nhập vào một dãy số gồm n phần tử.Sắp xếp dãy số theo thứ tự tăng dần sau đó in ra màn hình dãy số đã sắp xếp. 2.Viết chương trình nhập vào một dãy số gồm n phần tử. Sắp xếp dãy số theo thứ tự giảm dần sau đó in ra màn hình dãy số đã sắp xếp.(cứu mk với mai thi r ạ🥲
1)
Var array:[1..1000] of integer;
i,n,t:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] > a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Sap xep tang dan ');
For i:=1 to n do write(a[i]:8);
Readln
End.
Đúng 0
Bình luận (0)
2)
Var array:[1..1000] of integer;
i,n,t:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] < a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Sap xep giam dan ');
For i:=1 to n do write(a[i]:8);
Readln
End.
Đúng 0
Bình luận (0)
1Viết chương trình nhập vào số nguyên dương N. Tính tổng các số là bội 3 và 5. In kết quả ra màn hình. 2. Viết chương trình tính tổng S=1+13+15+1N+...+ cho đến khi 1N
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%15==0) t=t+x;
}
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập từ bàn phím một xâu kí tự st1 có độ dài tối đa là 50 1- Đếm số kí tự “N” và “n” trong xâu st1 2- Đưa ra màn hình xâu st2 gồm tất cả kí tự in hoatrong xâu st1 3- Đưa ra màn hình xâu st1 viết theo chiều ngược lại Giúp mik với ạ
program stringManipulation;
var
st1, st2: string;
countN, i: integer;
begin
write('Nhap vao xau ki tu st1: ');
readln(st1);
countN := 0;
for i := 1 to length(st1) do
begin
if (st1[i] = 'N') or (st1[i] = 'n') then
begin
countN := countN + 1;
end;
end;
writeln('So ky tu N va n trong xau st1 la: ', countN);
st2 := ''
for i := 1 to length(st1) do
begin
if (st1[i] >= 'A') and (st1[i] <= 'Z') then
begin
st2 := st2 + st1[i];
end;
end;
writeln('Cac ky tu in hoa trong xau st1 la: ', st2);
write('Xau st1 viet theo chieu nguoc lai la: ');
for i := length(st1) downto 1 do
begin
write(st1[i]);
end;
readln;
end.
Đúng 2
Bình luận (2)
st1 = input("Nhập vào xâu kí tự: ")
count_n = 0
st2 = ""
for char in st1:
if char == 'N' or char == 'n':
count_n += 1
if char.isupper():
st2 += char
print("Số lần xuất hiện của kí tự 'N' và 'n' là:", count_n)
print("Xâu kí tự chỉ chứa kí tự in hoa là:", st2)
print("Xâu kí tự đảo ngược là:", st1[::-1])
Đúng 1
Bình luận (3)
Viết chương trình nhập từ bàn phím một xâu kí tự st1 có độ dài 50 1- đếm số kí tự “N” và “n” trong xâu st1 2- đưa ra màn hình xâu st2 gồm tất cả kí tự in hoa trong xâu st1 3-đưa ra màn hình xâu st1 viết theo chiều ngược lại
Giả sử cần viết chương trình nhập một số tự nhiên a vàotừ bàn phím và in ra màn hình kết quả số a là số chẵn hay số lẻ. VD: Nhập a=5 thì in ra "a là số lẻ" ngược lại a =10 thì in ra a" là số chẵn". Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Pascal để thực hiện thuật toán đó.
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n%2==0) cout<<"Chan";
else cout<<"Le";
return 0;
}
Đúng 1
Bình luận (0)
Viết chương trình nhập vào mảng a gồm N phần tử kiểu số nguyên. In ra dãy số vừa nhập, in ra dãy số theo thứ tự tăng dần.
Giúp em với mn