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.
uses crt;
var s:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap chuoi S:'); readln(s);
d:=length(s);
writeln('Trong chuoi ',s,' co ',d,' ki tu');
writeln('Chuoi dao cua chuoi ',s,' la: ');
for i:=d downto 1 do
write(s[i]:4);
writeln;
dem:=0;
for i:=1 to d do
if s[i] in ['0'..'9'] then inc(dem);
writeln('So chu so trong xau la: ',dem);
readln;
end.
program ChuyenXauSangChuThuong;
var
str: string;
i: integer;
begin
write('Nhap mot xau ky tu: ');
readln(str);
for i := 1 to Length(str) do
str[i] := LowerCase(str[i]);
writeln('Xau ky tu chuyen thanh chu thuong la: ', str);
end.
Program hotrotinhoc;
var s: string;
t,c,i: byte;
begin
write('Nhap s:'); readln(s);
t:=0;
for i:=1 to length(s) do
if s[i] in ['1'..'9'] then
begin
val(s[i],c);
t:=t+c;
end;
write(t);
readln
end.
Thu gọn
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 :/
Bài 1: Bạn có thể ghi rõ đề hơn không , bạn hỏi ở câu b viết ra kí tự k của s ?
Bài 2: Mảng ASC11 là sao ạ . Ý bạn nói là bảng mã ASCII ?
Nếu là bảng mã ASCII thì bạn chỉ cần sử dụng chr hoặc ord .
Bài 3:
Mình chỉ làm 1 đoạn sau đó bạn hoàn thành chương trình hoàn chỉnh nhé:
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
Bài 4:
for i:=length(s) downto 1 do
st:=st+s[i];
if st=s then write('Phai') else write('Khong phai');
Bài 5: Ý bạn là tách ra từng kí tự ?