2 CHUONG TRINHA. MAHOA.PASUSES CRT;VAR S

TÀI LIỆU DE DAP AN THI HSG TIN 9 THO

3. 2 chuong trinh

uses crt;

var s:string;

i:integer;

begin

clrscr;

writeln('Nhap chuoi can ma hoa:');

readln(s);

writeln('Ma hoa thanh cac con so la:');

for i:=1 to length(s) do

begin

s[i]:=upcase(s[i]);

write(ord(s[i]));

end;

readln;

end.

var s,s2:string;

ch:char;

i,x,d:integer;

writeln('Nhap chuoi so mat ma:');

writeln('Giai ma chuoi so tren la:');

while length(s)>0 do

begin

s2:=copy(s,1,2); {lay moi lan 2 ky tu dau tien}

delete(s,1,2); {xoa 2 ky tu da lay di}

val(s2,x,i); {chuyen thanh so x}

write(chr(x)); {chuyen thanh ma asscii}

end;