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

290

427

Посмотреть ответы 3

Ответы на вопрос:

polina260505

Информатика

4,4(97 оценок)

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

svetlanakorneev

Информатика

4,8(42 оценок)

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.