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.