Viết chương trình nhập hai xâu kí tự. In ra độ dài từng xâu và tổng độ dài hai xâu

0 bình luận về “Viết chương trình nhập hai xâu kí tự. In ra độ dài từng xâu và tổng độ dài hai xâu”

1. var a,b:string;

   begin

   write(‘Nhap xau 1: ‘); readln(a);

   write(‘Nhap xau 2: ‘); readln(b);

   write(‘Do dai xau 1 la: ‘,length(a));

   write(‘Do dai xau 2 la: ‘,length(b));

   write(‘Tong do dai 2 xau la: ‘,length(a)+length(b));

   readln

   end.

   Bình luận

2. Program Hotboy ;

   uses crt;

   var h,o:string;

   begin

   clrscr;

   writeln(‘Nhap xau thu nhat’); readln(h);

   Writeln(‘do dai xau thu nhat ‘,length(h));

   writeln(‘Nhap xau thu hai ‘);readln(o);

   writeln(‘Do dai xau thu hai la: ‘,length(o));

   writeln(‘Tong do dai cua hai xau la: ‘,length(h)+length(o));

   readln

   end.

   Bình luận