Giai ma ac-cii
Chia sẻ bởi Phan Dinh Tung |
Ngày 16/10/2018 |
45
Chia sẻ tài liệu: giai ma ac-cii thuộc Tin học 9
Nội dung tài liệu:
uses crt;
var st,st1,st2:string;
i,j,l:integer;
begin
clrscr;
write(`Nhap ma can chuyen: `); readln(st);
st1:=copy(st,1,2);
val(st1,j,l);
write(` `,chr(j));
i:=3;
while i<=length(st) do
begin
st1:=copy(st,i,2);
val(st1,j,l);
if j>=65 then write(chr(j+32)) else write(chr(j));
i:=i+2;
end;
readln;
end.
var st,st1,st2:string;
i,j,l:integer;
begin
clrscr;
write(`Nhap ma can chuyen: `); readln(st);
st1:=copy(st,1,2);
val(st1,j,l);
write(` `,chr(j));
i:=3;
while i<=length(st) do
begin
st1:=copy(st,i,2);
val(st1,j,l);
if j>=65 then write(chr(j+32)) else write(chr(j));
i:=i+2;
end;
readln;
end.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Phan Dinh Tung
Dung lượng: 19,50KB|
Lượt tài: 0
Loại file: doc
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)