Function kolich (a: integer):integer
Begin
Integer i;
I:=1
While (a div 10 > 0) do
Begin
i:=i+1;
a:=a div 10;
End;
Kolich:=i;
End
7 = 111,
17 = 1111,
25 = 10101,
35 = 11101
Var
n: int64;
function f(n: int64): int64;
begin
if(n > 0) then f := f(n div 10) + (n mod 10);
end;
begin
readln(n);
write(f(n));
end.
const N=10
var a:array[1..n] of integer;
k,i,p:integer;
begin
for i:=1 to n do begin
a[i]:=random(101);
write(a[i]:3);
end;
writeln;
write('Введите k,p');
read(k,p);
writeln;
if a[p]>a[k] then write(a[p]) else write (a[k]);
end.