Xem chi tiết
Khánh Minh
Xem chi tiết
crazy
Xem chi tiết
crazy
Xem chi tiết
Nguyễn Thị Cúc Hoa
1 giờ trước (10:44)

Chương trình có thể như sau:

program SapXepLeChan;
const
  MAX = 100000;
type
  Mang = array[1..MAX] of Int64;
var
  a: Mang;
  n, i, j, temp: integer;
procedure SapXep(var a: Mang; n: integer);
var
  i, j, temp: integer;
begin
  // Sắp xếp số lẻ tăng dần
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if (a[i] mod 2 <> 0) and (a[j] mod 2 <> 0) then
        if a[i] > a[j] then
        begin
          temp := a[i];
          a[i] := a[j];
          a[j] := temp;
        end;
  // Sắp xếp số chẵn giảm dần
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if (a[i] mod 2 = 0) and (a[j] mod 2 = 0) then
        if a[i] < a[j] then
        begin
          temp := a[i];
          a[i] := a[j];
          a[j] := temp;
        end;
end;
begin
  // Nhập dữ liệu
  readln(n);
  for i := 1 to n do
    readln(a[i]);
  // Sắp xếp
  SapXep(a, n);
  // In ra màn hình
  for i := 1 to n do
    writeln(a[i]);
end.

Bình luận (0)
Huy Jenify
Xem chi tiết
MAI THỊ NHƯ Ý
Xem chi tiết
MAI THỊ NHƯ Ý
Xem chi tiết
Nguyễn Đức Trí
1 giờ trước (10:50)

a) \(2^{3x-1}=16\)

\(\Leftrightarrow2^{3x-1}=2^4\)

\(\Leftrightarrow3x-1=4\)

\(\Leftrightarrow3x=5\)

\(\Leftrightarrow x=\dfrac{5}{3}\)

b) \(\log_3\left(2x-5\right)=2\)

\(\Leftrightarrow\log_3\left(2x-5\right)=\log_33^2\)

\(\Leftrightarrow2x-5=9\)

\(\Leftrightarrow2x=14\)

\(\Leftrightarrow x=7\)

Bình luận (0)
Nguyễn Văn Nam Hải
Xem chi tiết
Nguyễn Đức Trí
41 phút trước

\(\dfrac{32}{3.7}+\dfrac{6}{7.41}+\dfrac{9}{41.10}+\dfrac{1}{51.10}+\dfrac{19}{51.14}\)

\(=\dfrac{32}{21}+\dfrac{6.5}{7.5.41}+\dfrac{9.5}{41.10.5}+\dfrac{5}{51.10.5}+\dfrac{19.5}{51.14.5}\)

\(=\dfrac{32}{21}+5.\left(\dfrac{6}{35.41}+\dfrac{9}{41.50}+\dfrac{1}{51.50}+\dfrac{19}{51.70}\right)\)

\(=\dfrac{32}{21}+5.\left(\dfrac{41-35}{35.41}+\dfrac{50-41}{41.50}+\dfrac{51-50}{51.50}+\dfrac{70-51}{51.70}\right)\)

\(=\dfrac{32}{21}+5.\left(\dfrac{1}{35}-\dfrac{1}{41}+\dfrac{1}{41}-\dfrac{1}{50}+\dfrac{1}{50}-\dfrac{1}{51}+\dfrac{1}{51}-\dfrac{1}{70}\right)\)

\(=\dfrac{32}{21}+5.\left(\dfrac{1}{35}-\dfrac{1}{70}\right)\)

\(=\dfrac{32}{21}+5.\dfrac{1}{70}\)

\(=\dfrac{32}{21}+\dfrac{1}{14}\)

\(=\dfrac{32.2}{42}+\dfrac{1.3}{42}\)

\(=\dfrac{67}{42}\)

Bình luận (0)
Kiều Vũ Linh
3 giờ trước (9:21)

Bài 1

a) \(\dfrac{3x-y}{3x+y}+\dfrac{6x+4y}{3x+y}\)

\(=\dfrac{3x-y+6x+4y}{3x+y}\)

\(=\dfrac{9x+3y}{3x+y}\)

\(=\dfrac{3\left(3x+y\right)}{3x+y}\)

\(=3\)

b) \(\dfrac{7x-2}{24xy}+\dfrac{2-8xy}{24xy}\)

\(=\dfrac{7x-2+2-8xy}{24xy}\)

\(=\dfrac{7x-8xy}{24xy}\)

\(=\dfrac{x\left(7-8y\right)}{24xy}\)

\(=\dfrac{7-8y}{24y}\)

c) \(\dfrac{x^2}{6x+12}+\dfrac{4x+4}{6x+12}\)

\(=\dfrac{x^2+4x+x}{6x+12}\)

\(=\dfrac{\left(x+2\right)^2}{6\left(x+2\right)}=\dfrac{x+2}{6}\)

d) \(\dfrac{3a+7}{5a^2b}+\dfrac{2x+2}{5a^2b}\)

\(=\dfrac{3a+7+2x+2}{5a^2b}\)

\(=\dfrac{3a+2x+9}{5a^2b}\)

Bình luận (0)
Kiều Vũ Linh
3 giờ trước (9:31)

Bài 2

a) \(\dfrac{y}{4x^2-2xy}+\dfrac{4x}{2y^2-4xy}\)

\(=\dfrac{y}{2x\left(2x-y\right)}-\dfrac{4x}{2y\left(2x-y\right)}\)

\(=\dfrac{y^2}{2xy\left(2x-y\right)}-\dfrac{4x^2}{2xy\left(2x-y\right)}\)

\(=\dfrac{y^2-4x^2}{2xy\left(2x-y\right)}\)

\(=\dfrac{\left(y-2x\right)\left(y+2x\right)}{2xy\left(2x-y\right)}\)

\(=\dfrac{-2x-y}{2xy}\)

b) \(\dfrac{2-y^2}{y-3}+\dfrac{y-2y^2}{3-y}+\dfrac{7-5y}{y-3}\)

\(=\dfrac{2-y^2}{y-3}-\dfrac{y-2y^2}{y-3}+\dfrac{7-5y}{y-3}\)

\(=\dfrac{2-y^2-y+2y^2+7-5y}{y-3}\)

\(=\dfrac{y^2-6y+9}{y-3}\)

\(=\dfrac{\left(y-3\right)^2}{y-3}\)

\(=y-3\)

c) \(\dfrac{y^2}{y^2-1}+\dfrac{3y}{1-y^2}+\dfrac{2}{y^2-1}\)

\(=\dfrac{y^2}{y^2-1}-\dfrac{3y}{y^2-1}+\dfrac{2}{y^2-1}\)

\(=\dfrac{y^2-3y+2}{y^2-1}\)

\(=\dfrac{y^2-2y-y+2}{\left(y-1\right)\left(y+1\right)}\)

\(=\dfrac{\left(y^2-2y\right)-\left(y-2\right)}{\left(y-1\right)\left(y+1\right)}\)

\(=\dfrac{y\left(y-2\right)-\left(y-2\right)}{\left(y-1\right)\left(y+1\right)}\)

\(=\dfrac{\left(y-2\right)\left(y-1\right)}{\left(y-1\right)\left(y+1\right)}\)\

\(=\dfrac{y-2}{y+1}\)

Bình luận (0)
nguyễn thành đạt
3 giờ trước (8:49)

giúp mình với 

 

Bình luận (0)
crazy
Xem chi tiết
Kiều Vũ Linh
2 giờ trước (9:43)

var n,i:integer;

begin

repeat

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

if (n < 2) or n > 50 then write('Nhap sai, nhap lai so n = ');readln(n);

until (n >= 2) and (n <= 50);

for i:=2 to n do

if (i mod 3 = 0) and (i mod 7 = 0) then

begin

write(i);

halt;

end;

readln;

end.

Bình luận (1)