Bài 12: Kiểu xâu

MM

Viết chương trình: Xâu A được nhập từ bàn phím . a) Viết xâu vừa nhập ra màn hình . b)tạo xâu B chứa các ký tự của xâu A

PG
7 tháng 4 2023 lúc 20:45

program NhapXau;

var

     Chuoi_A, Chuoi_B : string;

     i : integer;

begin

     write('Nhap xau A: ');

     readln(Chuoi_A);

     writeln('Xau A la: ', Chuoi_A);

     Chuoi_B := ''

     for i := 1 to length(Chuoi_A) do

          Chuoi_B := Chuoi_B + Chuoi_A[i];

     writeln('Xau B la: ', Chuoi_B);

     readln;

end.

Bình luận (0)

Các câu hỏi tương tự
KM
Xem chi tiết
LN
Xem chi tiết
YM
Xem chi tiết
KM
Xem chi tiết
AT
Xem chi tiết
KM
Xem chi tiết
JH
Xem chi tiết
TT
Xem chi tiết
TT
Xem chi tiết