var a,a12,a1,a2,a3,s: integer;
begin
readln(a);
a1:=a div 100;
a12:=a mod 100;
a2:=a12 div 10;
a3:=a12 mod 10;
s:=a1+a2+a3;
writeln(s);
end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа
25/2=12 (1) 12/2=6 (0) 6/2=3 (0)3/2=(1)(1)
25=11001
11001= 2^4+2^3+1=25
13/2=6 (1) 6/2=3 (0) 3/2=(1) (1)
13=1101
1101=2^3+2^2+1=13
Распишем итерационно алгоритм выполнения программы:
a=20, b = 3.
b = div(a, b) + b // b = div(20, 3) + 3 = 6 + 3 = 9.
c = mod(a, b) + a // c = mod(20, 9) + 20 = 2 + 20 = 22.
Ответ: с = 22.