Tổng chữ số Cho số nguyên dương n VIết số nguyên liên tiếp từ tới n hệ thập phân để tạo dãy chữ số Hãy tính tổng chữ số dãy Ví dụ : với n = 12, ta có dãy chữ số 123456789101112 với tổng 51 Test n= 12 123 2468 13579 12481632 23456789 9876543210 123123123123 123456789123456789 98765432100123456789 Mã nguồn Program Bai_1; Type mang = array[1 9] Of String; Var st,s,kq,bx:string; k,i,j,N,h,y,u:integer; Lap,A,F,C:array[1 21] Of string; Function Cong(a,b:string):string; Var s:string; t,i:integer; Begin While (length(a)0 then s:=chr(t+48)+s; While (length(s)>1) and (s[1]='0') Delete(s,1,1); nhan:=s; Exit; End; Function tongcs(i:integer):string; Var j,x,q,df,l:integer; bs,khong,st,p,sum,s1,s2,c,sumcs:string; ch:Char; Begin if s[i]='0' then exit; khong:=''; st:=''; sumcs:='1'; c:='1'; bs:=''; df:=0; Val(s[i],x,q); For j:=1 to length(s)-i khong:=khong+'0'; For j:=2 to x-1 Begin Str(j,s2); sumcs:=cong(sumcs,s2); End; sumcs:=sumcs+khong; st:=s[i]+khong; sum:=A[length(khong)]; If s[i]>'1' then Begin sum:=cong(cong(nhan(sum,x),s[i]),sumcs); inc(h); F[h]:=sum; End Else Begin inc(h); F[h]:=(cong(sum,s[i])); End; End; Procedure Init; Var d,j,i,x:integer; s1,s2,si:string; Begin C[1]:='1'; C[2]:='3'; C[3]:='6'; C[4]:='10'; C[5]:='15'; C[6]:='21'; C[7]:='28'; C[8]:='36'; C[9]:='45'; A[1]:='45'; A[2]:='900'; A[3]:='13500'; A[4]:='180000'; A[5]:='2250000'; A[6]:='27000000'; A[7]:='315000000'; A[8]:='3600000000'; A[9]:='40500000000'; A[10]:='450000000000'; A[11]:='4950000000000'; A[12]:='54000000000000'; A[13]:='585000000000000'; A[14]:='6300000000000000'; A[15]:='67500000000000000'; A[16]:='720000000000000000'; A[17]:='7650000000000000000'; A[18]:='81000000000000000000'; A[19]:='855000000000000000000'; A[20]:='9000000000000000000000'; k:=0; Write('Nhap N:');Readln(s); For i:=1 to length(s)-1 Begin Val(s[i],j,x); s1:=Copy(s,i+1,length(s)); inc(k); Lap[k]:=nhan(s1,j); End; bx:=Lap[1]; For i:=2 to k bx:=cong(Lap[i],bx); writeln; End; BEGIN Init; h:=0; For i:=1 to length(s)-1 tongcs(i); Val(s[i+1],y,u); kq:=F[1];write(F[1],' '); For i:=2 to length(s) begin kq:=cong(F[i],kq); end; writeln; kq:=cong(kq,C[y]); kq:=cong(kq,bx); readln end Có mê cung hình chữ nhật kích thước mxn gồm ô vuông đơn vị ô vuông ch ứa ký tự sau Kí tự : ô an toàn ; x ô có cạm bẫy , e ô có nhà thám hiểm đứng Duy có ô ghi chữ e nhà thám hiểm từ ô sang ô chung cạnh với ô đứng Một cách thoát khỏi mê cung hành trình qua ô an toàn m ột biên Hãy giúp cho nhà thám hiểm hành trình thoát khỏi mê cung input 67 0000000 1110110 0011E10 0000010 0001100 0000000 output: Trận động đất hôm 1/4/2016 Uruk khiến nhiều người bị thương Công vi ệc bác sĩ Kang Mo Yeon đồng nghiệp trở nên ô bận rộn Nhưng thuốc lại kho có hạn Chỉ có m hộp thuốc sát trùng n hộp thuốc kháng sinh Đầu tiên, bác sĩ Kang cần chọn k hộp thuốc ( sát trùng kháng sinh) để cứu trợ khẩn cấp Phần lại, bác sĩ chọn nhóm, nhóm gồm hộp thuốc sát trùng hộp thuốc kháng sinh để chữa bệnh cho bệnh nhân Hãy giúp bác sĩ Kang xác định số nhóm nhiều để chi cho bệnh nhân Dữ Liệu: Gồm dòng chứa m,n,k