Question

Câu 2: ĐỘ CAO

Ta gọi độ cao của số nguyên dương K là tổng giá trị các chữ số của K

Ví dụ: số 25362 có độ cao là 18

Cho dãy số nguyên dương A gồm N phần tử a₁, a₂, a₃,..a_n

(1≤n≤10⁵,1≤i≤n,0≤a_i≤10⁹)

Yêu cầu: Hãy tính độ cao của các phần tử trong dãy số A.

Dữ liệu vào: Ghi trong file DOCAO.INP có cấu trúc như sau:

Dòng 1:ghi số nguyên dương N, là số lượng phần tử của dãy số.

Dòng 2: Ghi n số nguyên dương, số thứ i là giá trị của phần tử a_i trong dãy số, các số được ghi cách nhau một dấu cách.

Dữ liệu ra: ghi ra file văn bản DOCAO.OUT theo cấu trúc như sau:

Dòng 1: ghi n số nguyên dương t1, t2, t3…tn. Trong đó ti là độ cao của ai. Các số được ghi cách nhau 1 dấu cách

DOCAO.INP	DOCAO.OUT
5 247 5 32000 334 27	13 5 5 10 9

 

pascal nha giup mik voi a 

Answer 1

PROGRAM HOC24;
VAR i,n,k: integer;
    a: array[1..10000] of longint;
    f: text;
CONST fi='DOCAO.INP' ;
      fo='DOCAO.OUT' ;
function sum(x: longint): integer;  {Ham tinh tong cac chu so}
var t,k: integer;
begin
     t:=0;
     while (x<>0) do
           begin
                t:=t+(x mod 10);
                x:=x div 10;
           end;
     sum:=t;
end;
procedure ip;  {Nhap du lieu}
begin
     assign(f,fi);
     reset(f);
     readln(f,n);
     for i:=1 to n do
         begin
              read(f,a[i]);
         end;
     close(f);
end;
procedure out;  {Xu ly va xuat}
begin
     assign(f,fo);
     rewrite(f);
     for i:=1 to n do
         write(f,sum(a[i]),' ');
     close(f);
end;
BEGIN
     ip;
     out;
END.