danulpopov
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:= ReadInteger('n ='); var tmp := n; var sum := 0; while (tmp > 0)do begin sum += tmp mod 10; tmp := tmp div 10; end; tmp := (sum div 2) + 1; while (tmp > 1) do begin if (sum mod tmp = 0) then begin Writeln(tmp); halt; end; dec(tmp); end; Writeln('Not Found, sum is simple number'); end.
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var n:= ReadInteger('n =');
var tmp := n;
var sum := 0;
while (tmp > 0)do
begin
sum += tmp mod 10;
tmp := tmp div 10;
end;
tmp := (sum div 2) + 1;
while (tmp > 1) do
begin
if (sum mod tmp = 0) then
begin
Writeln(tmp);
halt;
end;
dec(tmp);
end;
Writeln('Not Found, sum is simple number');
end.