Viết chương trình nhập từ bàn phím xâu S1 . Tạo xâu S2 gồm 5 kí tự bắt đầu từ vị trí thứ 3 của xâu S1
0 bình luận về “Viết chương trình nhập từ bàn phím xâu S1 . Tạo xâu S2 gồm 5 kí tự bắt đầu từ vị trí thứ 3 của xâu S1”
uses crt; var s1,s2:string; i:byte; begin clrscr; write(‘Nhap xau s1: ‘); readln(s1); for i:=3 to 7 do s2:=s2+s1[i]; write(‘Xau s2 la: ‘,s2); readln end.
uses crt;
var s1,s2:string;
i:byte;
begin
clrscr;
write(‘Nhap xau s1: ‘); readln(s1);
for i:=3 to 7 do
s2:=s2+s1[i];
write(‘Xau s2 la: ‘,s2);
readln
end.
program oken;
uses crt;
var xau1,xau2:string;
begin
clrscr;
write(‘nhap xau: ‘); readln(xau1);
xau2:=copy(s1,3,5);
writeln(‘xau moi: ‘,xau2);
readln;
end.