Сумма цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа на 1. (программа Паскаль)
Вопрос посетителя
Сумма цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа на 1.
Ответ эксперта
Var n,s,pr:integer;
Begin
write(‘Введите 4-ое число: ‘);
readln(n);
s:=0;pr:=1;
While n>0 do
Begin
s:=s+n mod 10;
pr:=pr*n mod 10;
n:=n div 10;
End;
writeln(s-pr=1);
readln;
End.