Var
N,A,k:integer;
P,S:real;
Begin
Write('N = ');ReadLn(N);
k:=0;
For N:= 1 to N-1 do
Begin
A:=N;
S:=0;
While A>0 do
Begin
S:=S+(A mod 10);
A:=A div 10;
End;
A:=N;
P:=1;
While A>0 do
Begin
P:=P*(A mod 10);
A:=A div 10;
End;
if S=P then
Begin
WriteLn(N);
k:=k+1;
End;
End;
if k=0 then WriteLn('Нет');
End.
Информа́тика<span> наука</span><span> о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации</span><span>, обеспечивающих возможность её использования для принятия решений</span>
Если сумма цифр в числе кратна 3-м, то число делится на 3 без остатка. У меня получилось 9776544.
Проверяем 9+7+7+6+5+4+4=42, 42/3=14.
Потому что в то время знать письменность и чтение было очень важно и не каждый этому учился,поэтому его считают мудрецом