Câu 1: Viết chương trình nhập xâu bất kì. Đưa ra màn hình độ dài xâu. Câu 2: Viết chương trình nhập xâu S bất kì đưa ra màn hình xâu in hoa. Câu 3: Viết chương trình nhập 2 xâu S1 và S2 đưa ra màn hình xâu dài hơn. Câu 4: viết chương trình nhập 2 xâu st1 và st2. Kiểm tra ký tự 2 của xâu st1 có trùng với ký tự 4 của xâu S2 không? Giúp e với mn :(((((

Câu 3:

program tin_hoc;

uses crt;

var s:string;

begin

clrscr;

write('Nhap xau:');readln(s);

writeln(s);

writeln(length(s));

readln;

end.

Bài 4:

program Tin_hoc;

uses crt;

var i,d:integer;

      s:string;

begin

clrscr;

write('Nhap xau:');readln(s);n:=0;

for i:= 1 to length(s) do if ord(s[i]) = 32 then n:= 1;

if n= 1 then write('Co dau cach') else write('Khong co dau cach');

readln;

end.

Câu 1 :

Program FNG;
Uses crt;
Var St: String;
    i: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        Writeln('Do dai: ',length(St));
        For i:=1 to length(St) do
                If St[i]=#32 then Delete(St,i,1);
        Write('St = ',St);
        Readln
End.

Câu 2 :

uses crt;
var a,b:string;
begin
clrscr;
write('Nhap xau ki tu thu nhat: ');readln(a);
write('Nhap xau ki tu thu hai: ');readln(b);
if length(a)>length(b) then writeln(b) else if length(b)>length(a) then writeln(a) else begin writeln(a); writeln(b);end;
readln
end.

Câu 3:

program tin_hoc;

uses crt;

var s:string;

begin

clrscr;

write('Nhap xau:');readln(s);

writeln(s);

writeln(length(s));

readln;

end.

Bài 4:

program Tin_hoc;

uses crt;

var i,d:integer;

      s:string;

begin

clrscr;

write('Nhap xau:');readln(s);n:=0;

for i:= 1 to length(s) do if ord(s[i]) = 32 then n:= 1;

if n= 1 then write('Co dau cach') else write('Khong co dau cach');

readln;

end.