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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.