Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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

Nguyễn Lê Phước Thịnh
6 tháng 1 2023 lúc 14:46
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.

Các câu hỏi tương tự
huynh chinh
Xem chi tiết
Sự tâm
Xem chi tiết
ít thì 5 quả trứng
Xem chi tiết
Nguyễn Xuân Khánh
Xem chi tiết
Thikthichieu
Xem chi tiết
phạm thanh vân
Xem chi tiết
Bach Minh
Xem chi tiết
monstermeomeo
Xem chi tiết
Lê Hoàng Bách
Xem chi tiết