Question

С клавиатуры вводится натуральное 4-х значное число.Определить,равен ли квадрат суммы цифр этого числа произведению его цифр?

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=Abs(ReadInteger('n='));
  var (s,p):=(0,1);
  while n>0 do begin
    var d:=n mod 10;
    s+=d; p*=d;
    n:=n div 10
    end;
  if s*s=p then Writeln('Да') else Writeln('Нет')
end.