Cho biết số trang sách của 1 quyển sách Hãy tìm số lượng các chữ số dùng để đánh số trang của quyển sách đó
2 câu trả lời
var n:longint;
s,k:integer;
begin
write('Nhap so trang sach: '); readln(n);
for i:= 1 to n do
begin
str(i,k);
s:=s+k;
k:='';
end;
write('So chu so la: ',length(s));
readln;
end.
Program BTT;
Uses crt;
Var S,k: Ansistring;
n,i: longint;
Begin
Clrscr;
Write('Nhap so trang: '); Readln(n);
S:='';
For i:=1 to n do
Begin
Str(i,k);
S:=S+k;
End;
Write('So luong: ',length(S));
Readln
End.
Câu hỏi trong lớp
Xem thêm
