Кітаптағы 110 Мб ақпаратты «Информатика» сөзінің қаншасымен
ауыстыруға болады?

203

416

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

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

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.