Question

Viết chương trình nhập vào xâu bất kì từ bàn phím sau đó thông báo ra màn hình độ dài của xâu vừa nhập.

Mọi người giúp mình với

Answer 1

Program hotrotinhoc;

var s: string;

begin

write('Nhap xau : '); readln(s);

write('Do dai cua xau la : ',length(s));

readln

end.

Answer 2

uses crt;

var st:string;

d:integer;

begin

clrscr;

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

d:=length(st);

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

readln;

end.