Question

 

)  Viết chương trình tìm độ dày và độ cao của số tự nhiên N

-    Khái niệm:

+ Độ dày của số nguyên N là số lượng chữ số của số N.

+ Độ cao của số nguyên N là tổng các chữ số của số N.

-    Yêu cầu: Viết chương trình tìm độ dày và độ cao của số tự nhiên N

-    Dữ liệu vào: Nhập từ bàn phím số tự nhiên N.

-    Dữ liệu ra: Xuất ra màn hình độ dày và độ cao của N.

Ví dụ:

Nhập từ bàn phím	Xuất ra màn hình
2018	-    Do day la: 4 -    Do cao la 11

Answer 1

uses crt;

var st:string;

i,t,x,y:integer;

begin

clrscr;

readln(st);

writeln(length(st));

t:=0;

for i:=1 to length(st) do 

begin

val(st[i],x,y);

t:=t+x;

end;

writeln(t);

readln;

end.