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

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

Пишем программу:

Pascal.

program qq;

var

a, b, s, n:integer;

begin

repeat

readln (a);

b:=a;

s:=0;

while b>0 do

begin

s:=s+b mod 10;

b:=b div 10;

end;

if s=10 then inc (n);

until a=0;

writeln (n);

end.

Программа написана.