Viết chương trình nhập vào số nguyê. In ra màn hình số đó có mấy kí tự số.

2 câu trả lời

$\text{Uses crt;}$

$\text{Var n:longint;}$

      $\text{S:string;}$

$\text{Begin}$

$\text{Clrscr;}$

$\text{Write('Nhap n: '); readln(n);}$

$\text{Str(n,s);}$

$\text{Write('So ki tu cua n: ',length(s));}$

$\text{Readln;}$

$\text{End.}$

uses crt;

var n:longint;

      s:string;

begin

clrscr;

write('Nhap n: '); readln(n);

str(n,s);

write('So ki tu cua n: ',length(s));

readln;

end.

Câu hỏi trong lớp Xem thêm