Proiz:=1; {оператор нужен, если будем искать произведение цифр числа};
While ch< >0 do {Исходное число. Пример: число 123}
Begin
{Отделяем последнюю цифру в числе.
В первый заход цикла цифра равна 3, во второй: 2, в третий: 1}
C:=ch mod 10;
{Сокращаем число на последнюю цифру.
В первый заход цикла число становится равно 12, во второй: 1, в третий: 0}
Ch:=ch div 10;
{Далее следуют действия с цифрами числа}
Sum:=Sum+c; {Сумма цифр, можно здесь использовать оператор inc( )}
Proiz:= Proiz +c; {Произведение цифр}
Inc(kol); {Количество цифр}
If c=n then ch1: = ch1 * 10+c; {где n - это цифра,
которую надо удалить из числа}
{и т.д.}
end;
|