Программа 9 раз вычитает из s число 3.
Поэтому s=50-9*3=23
Если все расписывать по шагам:
k=1;
s=50-3=47
k=2
s=47-3=44
k=3
s=44-3=41
k=4
s=41-3=38
k=5
s=38-3=35
k=6
s=35-3=32
k=7
s=32-3=29
k=8
s=29-3=26
k=9
s=26-3=23
Ответ: 23
Var n,n1,n2,n3,n4,sum:integer;
Begin
readln(n);
<span> n1:=n div 1000; </span>
<span> n2:=n div 100; </span>
<span> n2:=n2 mod 10; </span>
<span> n3:=n div 10; </span>
<span> n3:=n3 mod 10; </span>
<span> n4:=n mod 10; </span>
<span>n2:=n2*n2; </span>
<span>n3:=n3*n3; </span>
<span> sum:=sum+n2+n3; </span>
writeln('sum=',sum);
end.
Решение в прикрепленном файле в 3-х циклах, но работать эта программа будет медленнее,
если число N - простое.