{ Пример 1.4. Найти произведение цифр заданного
целого четырехзначного числа.
Система тестов
╔═══════╦═════════════════════╦═══════════════╤════════════╗
║ Номер ║ Проверяемый ║ Число │ Результаты ║
║ теста ║ случай ║ │ ║
╠═══════╬═════════════════════╬═══════════════╪════════════╣
║ 1 ║ Число положительное ║ Number = 2314 │ P = 24 ║
╟───────╫─────────────────────╫───────────────┼────────────╢
║ 2 ║ Число отрицательное ║ Number =-1245 │ P = 40 ║
╚═══════╩═════════════════════╩═══════════════╧════════════╝
}
Program DigitsProduct;
Uses Crt;
Var Number, {заданное число}
i, j, k, l, {цифры числа}
P : Integer; {произведение цифр}
BEGIN ClrScr;
Write( 'Введите четырехзначное число : ' ); ReadLn(Number);
Write( 'Цифры числа ' , Number , ' : ' );
Number:=Abs(Number);
i := Number div 1000; Write(i:3); {первая цифра}
j := Number div 100 mod 10; Write(j:3); {вторая цифра}
k := Number div 10 mod 10; Write(k:3); {третья цифра}
l := Number mod 10; WriteLn(l:3); {четвертая цифра}
P := i * j * k * l ;
WriteLn( 'О т в е т : произведение цифр равно ' , P );
ReadLn
END.