Những câu hỏi liên quan
Tt_Cindy_tT
Xem chi tiết
Minh Lệ
10 tháng 5 2023 lúc 19:26

1.A

2.A

3.D

4.C

5.B

Bình luận (1)
khai nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2021 lúc 0:49

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[1000];

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

sort(a+1,a+n+1);

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

Bình luận (0)
Huy Nguyen
Xem chi tiết
Bùi Anh Tuấn
25 tháng 12 2020 lúc 20:18

a ở đây là bán kính hay đường kính bro

Bình luận (2)
Bùi Anh Tuấn
25 tháng 12 2020 lúc 20:30

Bình luận (1)
The Chu Cong
Xem chi tiết
Trần Văn Việt Hùng
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 2 2022 lúc 13:22

#include <bits/stdc++.h>

using namespace std;

double a[100];

int i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

for (i=1; i<=n; i++)

swap(a[i],a[n+1-i]);

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

Bình luận (1)
Minh Lệ
Xem chi tiết
animepham
16 tháng 8 2023 lúc 19:59

Sắp xếp theo trình tự, lần lượt sẽ là : A-C-B-E-D.

Bình luận (0)
Lê Văn Hà TámB
Xem chi tiết
Phong Thần
14 tháng 2 2022 lúc 7:57

Câu 1: 

program chieu_cao;

uses crt;

var Nam, Linh: real;

begin

clrscr;

write ('Nhap chieu cao cua Nam:'); readln (Nam);

write ('Nhap chieu cao cua Linh:'); readln (Trang);

if Nam > Linh then writeln ('Ban Nam cao hon');

if Nam < Linh then writeln ('Ban Linh cao hon') else writeln ('Hai ban cao bang nhau');

readln

end.

Bình luận (0)
Phong Thần
14 tháng 2 2022 lúc 8:11

Câu 2: 

program Tich;

var N,i: interger;

      P: longint;

begin

write ('N='); readln (N);

P:=1;

for i:=1 to N do P:=P*i;

writeln (N,' ! = ',P);

readln

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
14 tháng 2 2022 lúc 8:32

Câu 3: 

uses crt;

var n,i,s:longint;

begin

clrscr;

readln(n);

for i:=1 to 10 do 

  writeln(n,'*',i,'=',n*i);

readln;

end.

Bình luận (0)
Vy Phạm Nguyễn Phương
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 5 2022 lúc 18:36

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]);

t:=0;

for i:=1 to n do

  if a[i] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

Bình luận (0)
Nguyễn Ally
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 8 2021 lúc 0:22

uses crt;

var n,t1:integer;

s:real;

begin

clrscr;

t1:=0;

s:=1;

repeat

readln\(\left(n\right)\);

if n mod 2=0 then t1:=t1+n

else s:=s*n;

until n=0;

writeln\(\left(t1\right)\);

writeln\(\left(s:4:2\right)\);

readln;

end.

Bình luận (0)