Viết chương trình nhập họ tên của 2 người vào 2 biến xâu và đưa ra màn hình xâu lớn hơn

Mình sẽ bỏ qua phần khai báo tên chương trình, thư viện, ... Vì chương trình ko nhất thiết phải có phần khai báo vẫn chạy được + nhiều quá

Bài tập 1

Var s1,s2:string

BEGIN

Readln[s1,s2];

If length[s1] > length[s2] then Writeln[s1] else Writeln[s2];

Readln;

END.

Bài tập 2

Var i : integer;

BEGIN

For i := 1 to 10 do Writeln[9.' * ',i,' = ',i*9];

Readln;

END.

Bài tập 3

Var s1,s2:string

BEGIN

Readln[s1,s2];

If s1[1] = s2[length[s2]] then Writeln['Trung'] else Writeln['Ko trung'];

Readln;

END.

Bài tập 4

Var s:string

BEGIN

s:='Hoc Lap Trinh Khong Kho!'

Writeln['Chuoi viet thuong:  ',lowercase[s]];

Writeln['Do dai chuoi ',length[s]];

Readln;

END.

Bài tập 5

Var s,sr:string

BEGIN

Readln[s];

For i := length[s] downto 1 do sr :=sr + s[i];

Writeln[sr];

Readln;

END.

Bài tập 6

Var s:string

BEGIN

Readln[s];

While [pos['  ',s] > 0] do delete[s,pos['  ',s],1];

Write[s];

Readln;

END.

Bài tập 7

Var m:array[1..8] of integer;

d,s,i:integer;

BEGIN

m[1]:=0;m[2]:=999;m[3]:=0;m[4]:=4;m[5]:=7;m[6]:=2;m[7]:=5;m[8]:=577; 

s:=0; d:=0;

For i:=1 to 8 do if not[odd[m[i]]] then begin

d:=d+1; s:=s+m[i];

end;

Readln;

END.

Bài tập 8

Var s1,s2:string;

i:integer;

BEGIN

Readln[s1];

For i:=1 to length[s1] do if s1[i] in ['0'..'9'] then s2:= s2 +s1[i];

Writeln[s2]; 

Readln;

END.

Bài tập 9

Var s1,s2,s3:string;i,d:integer;BEGINReadln[s1];Readln[s2];d:=0;For i:=1 to length[s1] dobegin If s1[i] = s2[1] then begin s3:=copy[s1,i,length[s2]]; if s2 = s3 then d:=d+1; end;end;Writeln[d];Readln;

END.

Bài tập 10

Var a[1..1000] of integer;

i,n,j,t:integer;
BEGIN

Readln[n];

For i:=1 to n do readln[a[i]];

For i:=1 to n do writeln[a[i]];

For i:=1 to n do

For j := 1 to n do

If a[i]>a[j] then begin t:=a[i]; a[i]:=a[j];a[j]:=t;end;
END.

Viết chương trình nhập họ tên của hai người vào hai biến xâu và đưa ra màn hình xâu dài hơn , nếu bằng nhau thì đưa ra xâu nhập sau

• lý thuyết
• trắc nghiệm
• hỏi đáp
• bài tập sgk

Viết chương trình nhập vào họ tên của 2 người vào 2 biến xâu , in ra màn hình xâu lớn hơn

Các câu hỏi tương tự

• Toán lớp 11
• Ngữ văn lớp 11
• Tiếng Anh lớp 11

Tính [Tin học - Lớp 6]

1 trả lời

Viết các công thức excel phù hợp câu hỏi [Tin học - Lớp 7]

2 trả lời

Rùa đi lùi: BK; LT; RD; RT; CS; CT [Tin học - Lớp 4]

3 trả lời

Xác định đầu ra và đầu vào của thuật toán [Tin học - Lớp 6]

1 trả lời

Nêu 1 ví dụ của khai báo biến mảng [Tin học - Lớp 8]

1 trả lời