Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
gia đình
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 3 2022 lúc 20:34

Chọn B

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

Thu Phương
Xem chi tiết
Minh Lệ
12 tháng 5 2023 lúc 23:49

Thứ tự sắp xếp

12. End.

8. End;

11. Readln;

2. Begin

7. Readln(f,i);

9. Close(f);

1. Var f:text; i: byte;

10. writeln(i);

3. Assign(f,'D:/so.txt');

4. Reset(f);

5. While not(eof(f)) Do

6. Begin

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.

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.

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.

Nguyễn Ngọc Diễm My
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 4 2022 lúc 18:53

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

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

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

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

return 0;

}

nguyễn an phát
Xem chi tiết
ádfg
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 12 2021 lúc 23:11

#include <bits/stdc++.h>

using namespace std;

long long a[100],b[100],c[100],n,i,dem1,dem2;

int main()

{

cin>>n;

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

cin>>a[i];

dem1=0;

dem2=0;

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

{

if (a[i]%2==0) 

{

dem1++;

b[dem1]=a[i];

}

else 

{

dem2=0;

c[dem2]=a[i];

}

}

sort(b+1,b+dem1+1);

sort(c+1,c+dem2+1);

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

cout<<b[i]<<" ";

for (i=dem2; i>=1; i--)

cout<<c[i]<<" ";

return 0;

}

hoho209
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 3 2021 lúc 23:30

Bài 1: 

uses crt;

var a:array[1..100]of integer;

i,n,tam,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

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.

hoho209
19 tháng 3 2021 lúc 0:35

Làm giúp em câu 2 với ạ

Cao phong Ngô hữu
Xem chi tiết