Question

Дано число N.Найти количество чисел в интервале от 1 до N , делящихся на сумму своих чисел . Язык Паскаль .

Answer 1

program for_znaniya;var n, i, c, t, sum: integer; begin   readln(n);   c  :=  0;   for i:= 1 to n do        begin              sum := 0;              t := i;              repeat            sum := sum + t mod 10;                   t := t div 10;              until t = 0;                  if (i mod sum) = 0 then inc(c)         end;     writeln(c)   end.

Answer 2

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

begin
  var n:=ReadInteger('n=');
  var p:=0;
  for var i:=1 to n do begin
    var (k,s):=(i,0);
    while k>0 do begin
      s+=k mod 10;
      k:=k div 10
      end;
    if i mod s=0 then p+=1
    end;
  Writeln(p)
end.