Question

[huynh chinh]

Bài CHUSO – Chữ số
Cho một dãy số nguyên A[1..N] gồm N(N≤10
6
) phần tử. Yêu cầu ứng với
mỗi phần tử cho biết có bao nhiêu số chữ số(DEM) của nó và tổng(SUM)
các chữ số đó.
− Dữ liệu vào: CHUSO.INP gồm
• Dòng đầu tiên chứa 1số N
• Dòng thứ hai chứa dãy số A[1..N] (các số cách nhau ít nhất một dấu cách)
− Dữ liệu ra: CHUSO.OUT gồm N dòng mỗi dòng ứng với DEM và SUM
(các số cách nhau 1 dấu cách).

pascal giups mik

Answer 1

[Nguyễn Lê Phước Thịnh]

const fi='chuso.inp';      fo='chuso.out';var f1,f2:text;    i,n:integer;    a:array[1..100] of integer;//chuongtrinhconfunction dai(x:integer)var st:string;    d:integer;beginstr(x,st);d:=length(st);dai:=d;end;//chuongtrinhconfunction tong(x:integer)var i,n,d,t,y:integer;    st:string;begin   str(x,st);   d:=length(st);   t:=0;   for i:=1 to d do    begin    val(st[i],n,y);    t:=t+n;    end;   tong:=t;end;//chuongtrinhchinhbeginassign(f1,fi); reset(f1);assign(f2,fo); rewrite(f2);readln(f1,n);for i:=1 to n do  read(f1,a[i]);for i:=1 to n do      writeln(f2,dai(a[i]),' ',tong(a[i]));    close(f1);    close(f2);end.