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

Question

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

Comments

Своих чисел?

---

Это как?

Answer 1

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

Comments

Спасибо .

Answer 2

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.

Comments

Да чё ты сбилось-то, а

---

Вроде ж всё нормально было

---

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.

---

Во так нормально...

---

Спасибо