Один из простейших и самых распространенных типов данных в языках программирования. служит для представления целых чисел.
Вот так гораздо проще.
var s:string;
begin
readln(s);
writeln(length(s));
end.
23456₁₀ = 101101110100000₂
берем 1 число с начала и одно с конца:
1+10=11
2+9=11
и т.д
Всегда получается 11.НАйдем количество таких пар и полученное число умножим на 11.
10:2 =5- 5 пар получится
5*11=55 сумма целых чисел от 1 до 10
Var
a, b: integer;
begin
readln(a);
while (inttostr(a).Length > 1) do
begin
b := 0;
foreach c: char in inttostr(a) do
b += strtoint(c);
a := b;
end;
writeln(b);
<span>end.
=======================
var
a, b, e: integer;
d: string;
begin
readln(a);
d := inttostr(a);
while (length(d) > 1) do
begin
d := inttostr(a);
b := 0;
for e := 1 to length(d) do
b += strtoint(d[e]);
a := b;
end;
writeln(b);
<span>end.</span></span>