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

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

Answer 3

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

Answer 4

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 5

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

Answer 6

Спасибо