Bài 1:
uses crt;
var s:string;
k:longint;
begin
clrscr;
write('Nhap xau S:');
readln(s);
writeln('--------');
writeln('Phan a:');
writeln('Do dai xau S: ',length(s));
writeln('--------');
writeln('Phan b:');
write('Nhap k:');
readln(k);
writeln('Ki tu thu K cua S la: ',s[k]);
writeln('--------');
writeln('Phan C minh dang nghien cuu, mong ban thong cam');
readln
end.
Bài 2: ( Phần a) thôi nhé :/ )
uses crt;
procedure ASCII;
var i: byte;
begin
for i := 0 to 255 do
begin
write(chr(i), ': ',i:3,' ');
delay(1);
if i mod 5 = 0 then writeln();
end;
readln
end;
begin
ASCII;
writeln('--------');
end.
Bài 3:
uses crt;
var st:string;
i:longint;
Function POSNUM(St:String):Byte;
Var OK:Boolean;
i:Byte;
Begin
writeln('Phan a)');
write('Nhap xau S:');
readln(st);
writeln(upcase(st));
writeln('Phan b:');
OK:=False;
i:=1;
While (i<=Length(St)) AND (Not OK) Do
If St[i] IN ['0'..'9'] Then OK:=True
Else i:=i+1;
If OK Then POSNUM:=i Else POSNUM:=0;
End;
Begin
Write('Nhap xau St: '); Readln(St);
While POSNUM(St)<>0 Do Delete(St,POSNUM(St),1);
Write('Xau sau khi xoa: ',St);
writeln('Phan c:');
writeln;
for i:=length(st) to 1 do
write(st[i]);
Readln;
End.
Bài 4, Bài 5: Tớ tịt rồi :/