Var
A,S,k:longint;
Begin
k:=0;
Read(A);
While A<>0 do
Begin
S:=0;
A:=Abs(A);
While A > 0 do
Begin
S:=S+A mod 10;
A:=A div 10;
End;
if S=10 then k:=k+1;
Read(A);
End;
WriteLn('Искомое количество: ',k);
End.
1)x=1
2)y=2*1=2
3)y=2+3=5
4)y=5*1=5
5)y=5+4=9
6)y=9*1=9
7)y=9+5=14
Ответ: 14
y(x)=<span>((2*x+3)*x+4)*x+5</span>
И еще после последней строчки
кон
1) 4
2) 0
3) 9,7
4) 3,14
5) 0,45
6) 0,5
7) 6
8) 6
9) 7
10) 49