Question

Напишите программу, которая вводит последовательность целых чисел, заканчивающуюся нулём, и определяет, сколько из этих чисел удовлетворяет условию: сумма значений цифр десятичной записи числа равно 10.

Answer 1

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.