Ответ(ы) на вопрос:
ГостьVar
n,i:integer;
ar:array[1..100] of integer;
function NumSum(n:integer):integer;
Var
res:integer;
begin
res:=0;
while n<>0 do
begin
res:=res+n mod 10;
n:=n div 10;
end;
NumSum:=res;
end;
begin
readln(n);
for i:=1 to n do
readln(ar[i]);
for i:=1 to n do
writeln(ar[i],'-',NumSum(ar[i]));
end.
Пример ввода:
123
0
23
203
1
Пример вывода:
123-6
0-0
23-5
203-5
1-1
Не нашли ответ?
Похожие вопросы