câu 1 : viết chương trình tính độ dài của xâu s . in kết quả ra màn hình câu 2 : viết chương trình cộng vào 2 xâu s1 và s2 , kết quả cộng đc lưu vào x

0 bình luận về “câu 1 : viết chương trình tính độ dài của xâu s . in kết quả ra màn hình câu 2 : viết chương trình cộng vào 2 xâu s1 và s2 , kết quả cộng đc lưu vào x”

1. Câu 1
   Var s: string ;

   begin

   read(s);

   write(length(s));

   readln

   end.

   Câu 2

   Var  s1,s2,s: string;

   begin

    readln(s1); readln(s2);

   s:=s1+s2;

   write(s);

   readln

   end.

   Bình luận

2. Câu 1:

   Program NN;
   Uses crt;
   Var St: String;
   Begin
           Clrscr;
           Write(‘Nhap St: ‘); Readln(St);
           Write(length(St));
           Readln
   End.

   Câu 2:

   Program NN;
   Uses crt;
   Var S1,s2,s: String;
   Begin
           Clrscr;
           Write(‘Nhap S1: ‘); Readln(S1);
           Write(‘Nhap S2: ‘); Readln(S2);
           s:=S1+S2;
           Write(S);
           Readln
   End.

   Bình luận