Для заданного числа n составьте программу вычисления суммы s=1+1/2+1/3+1/4+…+1/n, где n – натуральное число через repeat,

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.

// 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.