apprico
Мыслитель
(8642)
13 лет назад
c - integer ваше число.
p - тоже интегер
p:=(с div 1000)*((c mod 1000)div 100)*((c mod 100)div 10)*(c mod 10);
если с- менее чем четыерхзначное - получите ноль, если более - то только произведение последних четырех знаков.