Viết chương trình đọc vào ba chuối ký tự trên ba dòng. Ghép chúng lại trên cùng một dòng và cách nhau một khoảng trắng. ( STRING )

2 câu trả lời

uses crt;
var s,st,str:string;
begin
clrscr;
    readln(s);
    readln(st);
    readln(str);
    write(s,' ',st,' ',str); 
readln;
end.

Program FNG;
Uses crt;
Var St1, St2, St3:String;
Begin
        Clrscr;
        Write('Nhap St1: '); Readln(St1);
        Write('Nhap St2: '); Readln(St2);
        Write('Nhap St3: '); Readln(St3);
        Write(St1,' ',St2,' ',St3);
        Readln
End.