Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
![](https://rs.olm.vn/images/avt/0.png?1311)
program là khai báo tên chương trình
uses là dùng để khai báo thư viện
crt là một thư viện thường dùng trong pascal
var được dùng để khai báo biến
integer là kiểu dữ liệu
begin là bắt đầu
clrscr là xóa màn hình
writeln là xuất
readln(a) là nhập vào
tong:=a+b có nghĩa là phép gán biến tong cho a+b;
writeln('-Tong a+b=',tong) là xuất kết quả của biến tong
readln có nghĩa là lệnh chờ
end là kết thúc
![](https://rs.olm.vn/images/avt/0.png?1311)
4.2:
program là khai báo tên chương trình
uses là dùng để khai báo thư viện
crt là một thư viện thường dùng trong pascal
var được dùng để khai báo biến
integer là kiểu dữ liệu
begin là bắt đầu
clrscr là xóa màn hình
writeln là xuất
readln(a) là nhập vào
tong:=a+b có nghĩa là phép gán biến tong cho a+b;
writeln('-Tong a+b=',tong) là xuất kết quả của biến tong
readln có nghĩa là lệnh chờ
end là kết thúc
![](https://rs.olm.vn/images/avt/0.png?1311)
4.2:
program là khai báo tên chương trình
uses là dùng để khai báo thư viện
crt là một thư viện thường dùng trong pascal
var được dùng để khai báo biến
integer là kiểu dữ liệu
begin là bắt đầu
clrscr là xóa màn hình
writeln là xuất
readln(a) là nhập vào
tong:=a+b có nghĩa là phép gán biến tong cho a+b;
writeln('-Tong a+b=',tong) là xuất kết quả của biến tong
readln có nghĩa là lệnh chờ
end là kết thúc
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
program là khai báo tên chương trình
uses là dùng để khai báo thư viện
crt là một thư viện thường dùng trong pascal
var được dùng để khai báo biến
integer là kiểu dữ liệu
begin là bắt đầu
clrscr là xóa màn hình
![](https://rs.olm.vn/images/avt/0.png?1311)
Program: khai báo tên CT
Test: kiểm tra
Uses: khai báo thư viện
Crt:
Varinteger;Beginclrscr;writelnwrite readlnEnd.Uses ---> khai báo thư viện
Crt ---> tên thư viện
Var ---> khai báo biến
integer; ---> kiểu dữ liệu số nguyên
Begin ----> mở đầu chương trình
clrscr; ---> xóa màn hình
writeln ---> lệnh viết (xuống hàng)
write ---> lệnh viết
readln ---> lệnh đọc (xuống hàng)
End. ---> Kết thúc chương trình
type là sai rồi nhé bạn
còn lại đúng
nguyên tắc là type là không phải là kiểu dữ liệu nên không được phép làm như vậy