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.

Minh Lệ
14 tháng 6 2021 lúc 10:55

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.

Bình luận (0)
Phạm Phú
14 tháng 6 2021 lúc 12:01

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.

Bình luận (0)

Các câu hỏi tương tự
Huyền Diệu Nguyễn
Xem chi tiết
Nguyễn Thị Linh
Xem chi tiết
Hằng Trương thị thu
Xem chi tiết
Nguyễn Thị Thanh Trúc
Xem chi tiết
Quân Đoàn Long Tường
Xem chi tiết
Nguyễn Trần Hồng Ngọc
Xem chi tiết
Địêp Hòang Thị Hồ
Xem chi tiết
anh đẹp zai
Xem chi tiết
Thiên Nhật
Xem chi tiết