Viết chương trình nhập một xâu kí tự. In ra chiều dài của xâu và các kí tự đã nhập

2 câu trả lời

hok tốt! 

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('nhap xau:'); readln(st);

d:=length(st);

writeln('do dai cua xau la: ',d);

writeln; ...

Xem thêm tại: https://hoidap247.com

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('nhap xau:'); readln(st);

d:=length(st);

writeln('do dai cua xau la: ',d);

writeln; ...