Question

Определить число из заданного множества с минимальной суммой цифр.
Написать на Паскале.

Answer 1

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

function s(n:integer):integer;
begin
  Result:=0;
  n:=Abs(n); // защита от дурака
  while n>0 do begin
    Result+=n mod 10;
    n:=n div 10
    end
end;

begin
  var (x0,xn,h):=ReadInteger3('Начальное значение, конечное значение, шаг:');
  var n:=x0;
  var xm:=s(x0);
  while x0<=xn do begin
    x0+=h;
    var sd:=s(x0);
    if sd<xm then (xm,n):=(sd,x0)
    end;
  Writeln('Число с минимальной суммой цифр: ',n)
end.

Пример:
Начальное значение, конечное значение, шаг: 78 132 3
Число с минимальной суммой цифр: 102

Answer 2

СПАСИИИБОО!

Answer 3

Пожалуйста