Народы решить задание 30 баллов даю. Задание ниже на карточке.

Var n : longint; function check(a : longint) : boolean; var   m : array[0..9] of byte;   i : byte; begin   for i: =0 to 9 do m[i]: =0;   while a> 0 do   begin       inc(m[a mod 10]);       a: =a div 10;   end;   check: =false;   for i: =0 to 9 do if m[i]> =4 then check: =true; end; begin   n: =0;   while (n< 1000000) or (n> 9999999) do readln(n);   if check(n) then writeln('yes') else writeln('no'); end.

Вреальной жизни выполнение всяких действий связано с расходом различных ресурсов: материалов, энергии и времени. даже производя какие-либо записи, мы расходуем ресурсы (например, бумагу, чернила и время). еще недавно некоторые нельзя было решить из-за слишком большого числа необходимых для этого операций и слишком малой скорости их выполнения. появление электронных вычислительных машин сделало такие разрешимыми. это значит, что «» понятие алгоритма, нужно абстрагироваться, отвлечься от ограниченности ресурсов, требуя только их конечности, иначе теория алгоритмов устареет, как только развитие науки и техники позволит переступить через существующие границы ресурсов. алгоритму в интуитивном смысле в книге противопоставляется алгоритм в , или формальном смысле. в последнем случае считается, что понятие определено , принятыми в , и основывается либо на других понятиях, имеющих определение, либо на первоначальных, описанных настолько четко, что их свойства могут быть приняты за аксиомы новой теории. теорию алгоритмов, которой посвящена эта книга, мы называем содержательной в том смысле, что именно алгоритмы как таковые во всем их разнообразии являются ее предметом. в этом отношении она является противоположностью традиционных теорий, которые изучали вопросы существования и несуществования алгоритмов путем сведения вопросов к исследованию какого-либо одного узкого класса алгоритмов и потому многие важнейшие проблемы оставляли вне своего поля зрения.