program bien_doi;
uses crt;
var St:string;
p,q,k,i:byte;

procedure Swap(var St:string;p,q:byte);
var x,y:char;
begin
x:=St[p];
y:=St[q];
delete(St,p,1);
delete(St,q-1,1);
insert(y,St,p);
insert(x,St,q);
end;

begin
clrscr;
write('Nhap xau St: '); readln(St);
write('Nhap K: ');readln(K);
for i:=1 to k do
begin
write('Nhap p',i,': '); readln(p);
write('Nhap q',i,': '); readln(q);
Swap(St,p,q);
end;
write(St);
readln
end.

Giả siêng như thật

uses crt;

var a,b,k,dem,x,y:longint;

begin

clrscr;

readln(a,b,k);

dem:=0;

for x:=1 to k do 

  for y:=1 to k do 

  if ((a<=b) and (a<=x*x) and (a<=y*y*y)) then dem:=dem+1;

writeln(dem);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a,b,k,x,y,dem=0;

int main()

{

cin>>a>>b>>k;

for (x=1; x<=k; x++)

{

for (y=1; y<=k; y++)

{

if (a<=x*x && a<=b && a<=y*y*y && a<=b) dem++;

}

}

cout<<dem;

return 0;

}

• Plot y = 4*x + 1
• Plot y = 3/x
• Plot y = 3 – 5*x
• Plot y = 3*x

• Make P(x) x^2*y – 2*x*y^2 + 5*x*y +3
• Make Q(x) 3*x*y^2 + 5*x^2*y – 7*x*y + 2
• Expand P(x) + Q(x)

P(x)= x^2 - 2xy^2 + 5xy+ 3
Q(x)= 5x^2y + 3xy^2- 7xy+2
P(x)+Q(x)= 6x^2y + xy^2 - 2xy +5

1. Giúp ta xem lại văn bản trước khi in, từ đó chỉnh sửa lại bố cục trình bày sao cho thích hợp, giúp tiết kiệm thời gian và công sức.

Đáp án : 1. Phần tử có giá trị nhỏ nhất trong dãy được tìm thấy và đổi chỗ cho phần tử đứng đầu dãy.

A->Z để sắp xếp dữ liệu theo thứ tự tăng dần

Z-> A để sắp xếp dữ liệu theo thứ tự giảm dần

-Để lọc dữ liệu, sử dung lệnh Filter trong nhóm Sort&Filter trên dải lệnh Data