Найти произведение цифр числа - Pascal ABC (12885)
Формулировка задачи:
Дано натуральное число:
-найти произведение цифр числа;
-верно ли,что в данном числе нет данной цифры А(А вводится с клавиатуры)
Решение задачи: «Найти произведение цифр числа»
textual
Листинг программы
var
numb: LongInt;
m: LongWord;
a, temp: 0..9;
aa:string;
flag: Boolean;
begin
Write('Введите число: '); ReadLn(numb);
Write('Введите цифру А: '); ReadLn(a);
m := 1; numb := Abs(numb); flag := False;
repeat
temp := numb mod 10;
m := m * temp;
flag := flag Or (a = temp);
numb := numb div 10;
until ((numb = 0) Or (m = 0));
WriteLn('Произведение цифр: ', m);
if flag then aa:=' ' else aa:=' не ';
WriteLn('Цифра ', a,aa, 'присутствует');
end.