Question

[Vien Nguyen]

giải giúp mk bài này với chiều nay phải có rồi:Khi viết số nguyên dương tăng dần từ 1,2,3,...liên tiếp nhau, ta nhận được dãy số thập phân vô hạn, vd:1234567891011121314... tính tổng n chữ số đầu tiên của dãy số vô hạn trên với nhập từ bàn phím.

Answer 1

[Minh Lệ]

Program HOC24;

var m,n,i: byte;

t,d,code: integer;

s,st: string;

begin

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

m:=0;

for i:=1 to n do

begin

str(i,s);

st:=st+s;

end;

t:=0;

for i:=1 to n do

begin

val(st[i],d,code);

t:=t+d;

end;

write(t);

readln

end.

Answer 2

[Phạm Phú]

program tong;
uses crt;
var n, i, a : integer; x, s : string;
begin
clrscr;
        write('nhap n= '); readln(n);
        for i:=1 to n do
        begin
                str(i,s);
                x:=x+s;
                if length(x)=n then break
        end;
        {tim n so trong day}
                for i:=1 to length(x) do
                        begin
                                val(x[i],n);
                                a:=a+n;
                        end;
                        {tinh tong n so trong day}
        writeln('tong la ',a);

end.