Question

Viết chương trình nhập vào 1 xâu A) xuất nửa đầu của xâu B) Xuất nửa cuối của xâu

Answer 1

Program HOC24;

var i,n: byte;

s: string;

begin

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

n:=length(s)/2;

write('Xau nua dau: ');

for i:=1 to n do write(s[i]);

writeln;

write('Xau nua cuoi: ');

for i:=n to length(s) do write(s[i]);

readln

end.

Answer 2

uses crt;

var st:string;

i:integer;

begin

clrscr;

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

writeln('Nua dau xau la: ');

for i:=1 to (length(st) div 2) do 

  write(st[i]);

writeln;

writeln('Nua cuoi xau la: ');

for i:=((length(st) div 2)+1) to length(st) do

  write(st[i]);

readln;

end.