{"id":2401,"date":"2010-05-11T12:33:53","date_gmt":"2010-05-11T08:33:53","guid":{"rendered":"http:\/\/msbro.ru\/?p=2401"},"modified":"2010-06-25T08:31:17","modified_gmt":"2010-06-25T04:31:17","slug":"pascal-strokovyjj-tip-i-mnozhestva","status":"publish","type":"post","link":"https:\/\/msbro.ru\/index.php\/archives\/2401","title":{"rendered":"Pascal: \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u044b\u0439 \u0442\u0438\u043f \u0438 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0430"},"content":{"rendered":"<p><!--more--><\/p>\n<p><strong>\u0417\u0430\u0434\u0430\u0447\u0430 1.<\/strong><\/p>\n<p><em>\u0412\u044b\u0432\u0435\u0441\u0442\u0438 \u0432 \u043e\u0434\u043d\u0443 \u0441\u0442\u0440\u043e\u043a\u0443 ABBCCCDDDD &#8230;. ZZ&#8230;Z.<\/em><\/p>\n<p>\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:<\/p>\n<p style=\"padding-left: 30px;\">i \u2013 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0446\u0438\u043a\u043b\u0430; \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442, \u043a\u0430\u043a\u0430\u044f \u0431\u0443\u043a\u0432\u0430 \u0432\u044b\u0432\u043e\u0434\u0438\u0442\u0441\u044f;<br \/>\nk \u2013 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u043f\u043e\u0432\u0442\u043e\u0440\u0435\u043d\u0438\u0439 \u0431\u0443\u043a\u0432\u044b;<br \/>\nj \u2013 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0446\u0438\u043a\u043b\u0430.<\/p>\n<p><span style=\"text-decoration: underline;\">\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447\u0438:<\/span><\/p>\n<ol>\n<li> \u0446\u0438\u043a\u043b for i:=&#8217;A&#8217; to &#8216;z&#8217; do \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442, \u043a\u0430\u043a\u0443\u044e \u0431\u0443\u043a\u0432\u0443 \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u043d\u0430 \u043f\u0435\u0447\u0430\u0442\u044c;<\/li>\n<li>\u0432\u043d\u0443\u0442\u0440\u0435\u043d\u043d\u0438\u0439 \u0446\u0438\u043a\u043b for j:=1 to k do \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442, \u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0440\u0430\u0437 \u0431\u0443\u0434\u0435\u0442 \u043f\u0435\u0447\u0430\u0442\u0430\u0442\u044c\u0441\u044f \u0431\u0443\u043a\u0432\u0430;<\/li>\n<li>\u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0437\u0430\u0434\u0430\u043d\u043d\u0443\u044e \u0431\u0443\u043a\u0432\u0443 k \u0440\u0430\u0437 \u043d\u0430 \u044d\u043a\u0440\u0430\u043d;<\/li>\n<li>\u043f\u043e\u0441\u043b\u0435 \u0432\u044b\u0432\u043e\u0434\u0430 \u0432\u0441\u0435\u0445 \u0431\u0443\u043a\u0432 \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u0441\u0442\u0440\u043e\u043a\u0443 \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440\u043e\u043c writeln.<\/li>\n<\/ol>\n<pre>var   i : char;\r\n     k,j : integer;\r\nbegin\r\n         k:=1;\r\n         for i:= 'A' to 'Z' do\r\n         begin\r\n               for j:=1 to k do  write(i);\r\n                k:=k+1;\r\n         end;\r\n         writeln;\r\nend.\r\n<\/pre>\n<p><strong>\u0417\u0430\u0434\u0430\u0447\u0430 2.<br \/>\n<\/strong><\/p>\n<p><em>\u0414\u0430\u043d\u0430 \u0441\u0442\u0440\u043e\u043a\u0430 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432. \u0423\u0434\u0430\u043b\u0438\u0442\u044c \u0438\u0437 \u043d\u0435\u0435 \u0432\u0441\u0435 \u0437\u043d\u0430\u043a\u0438 \u043f\u0440\u0435\u043f\u0438\u043d\u0430\u043d\u0438\u044f.<\/em><\/p>\n<p>\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:<\/p>\n<p style=\"padding-left: 30px;\">i \u2013 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0446\u0438\u043a\u043b\u0430;<br \/>\nL \u2013 \u0434\u043b\u0438\u043d\u0430 \u0441\u0442\u0440\u043e\u043a\u0438;<br \/>\nstr \u2013 \u0441\u0442\u0440\u043e\u043a\u0430 \u0442\u0435\u043a\u0441\u0442\u0430;<br \/>\nstr1 \u2013 \u0432\u0441\u043f\u043e\u043c\u043e\u0433\u0430\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430;<br \/>\nm \u2013 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e \u0437\u043d\u0430\u043a\u043e\u0432 \u043f\u0440\u0435\u043f\u0438\u043d\u0430\u043d\u0438\u044f.<\/p>\n<p><span style=\"text-decoration: underline;\">\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447\u0438:<\/span><\/p>\n<ol>\n<li> \u0437\u0430\u0434\u0430\u0435\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0430 m \u2013 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0430 \u0437\u043d\u0430\u043a\u043e\u0432 \u043f\u0440\u0435\u043f\u0438\u043d\u0430\u043d\u0438\u044f;<\/li>\n<li>\u0432\u0432\u043e\u0434\u0438\u043c \u0441\u0442\u0440\u043e\u043a\u0443 str \u0441 \u043a\u043b\u0430\u0432\u0438\u0430\u0442\u0443\u0440\u044b;<\/li>\n<li>\u0446\u0438\u043a\u043b for i:=1 to l do  \u043e\u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043b\u044f\u0435\u0442 \u043f\u043e\u0441\u0442\u0440\u043e\u0435\u043d\u0438\u0435 \u0432\u0441\u043f\u043e\u043c\u043e\u0433\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0438 \u0431\u0435\u0437 \u0437\u043d\u0430\u043a\u043e\u0432 \u043f\u0440\u0435\u043f\u0438\u043d\u0430\u043d\u0438\u044f:  \u0431\u0435\u0440\u0435\u043c \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0439 \u0441\u0438\u043c\u0432\u043e\u043b \u0441\u0442\u0440\u043e\u043a\u0438 \u0438 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c, \u043d\u0435 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043b\u0438 \u043e\u043d \u0437\u043d\u0430\u043a\u043e\u043c \u043f\u0440\u0435\u043f\u0438\u043d\u0430\u043d\u0438\u044f. \u0415\u0441\u043b\u0438 \u0434\u0430, \u0442\u043e \u043f\u0440\u0438\u0441\u043e\u0435\u0434\u0438\u043d\u044f\u0435\u043c \u044d\u0442\u043e\u0442 \u0441\u0438\u043c\u0432\u043e\u043b \u043a \u043d\u043e\u0432\u043e\u0439 \u0432\u0441\u043f\u043e\u043c\u043e\u0433\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0435. \u0415\u0441\u043b\u0438 \u043d\u0435\u0442, \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043a \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u043c\u0443 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0443 \u0441\u0442\u0440\u043e\u043a\u0438;<\/li>\n<li>\u043f\u0435\u0440\u0432\u043e\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443 \u0437\u0430\u043c\u0435\u043d\u044f\u0435\u043c \u043d\u0430 \u0432\u0441\u043f\u043e\u043c\u043e\u0433\u0430\u0442\u0435\u043b\u044c\u043d\u0443\u044e;<\/li>\n<li>\u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0441\u0440\u043e\u043a\u0443 \u043d\u0430 \u044d\u043a\u0440\u0430\u043d.<\/li>\n<\/ol>\n<pre>var   str, str1 : string;\r\n        L, i : integer;\r\n         m : set of char;\r\nbegin\r\n         m:=['.', ',', '!', ':', ';', '?', '-'];\r\n         writeln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0442\u0435\u043a\u0441\u0442');\r\n         readln(str);  L:=length(str); str1:='';\r\n         for i:=1 to L do\r\n                if not(str[i] in m) then str1:=str1+str[i];\r\n         str:=str1;\r\n         writeln('\u041f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u0442\u0435\u043a\u0441\u0442 ', str);\r\nend.\r\n<\/pre>\n<p><strong>\u0417\u0430\u0434\u0430\u0447\u0430 3.<br \/>\n<\/strong><\/p>\n<p><em>\u0414\u0430\u043d\u0430 \u0441\u0442\u0440\u043e\u043a\u0430 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432. \u0412\u044b\u0434\u0435\u043b\u0438\u0442\u044c \u043f\u043e\u0434\u0441\u0442\u0440\u043e\u043a\u0443 \u043c\u0435\u0436\u0434\u0443 \u043f\u0435\u0440-\u0432\u043e\u0439 \u0438 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0439 \u0442\u043e\u0447\u043a\u043e\u0439. <\/em><\/p>\n<p>\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:<\/p>\n<p style=\"padding-left: 30px;\">i \u2013 \u043d\u043e\u043c\u0435\u0440 \u043f\u043e\u0437\u0438\u0446\u0438\u0438, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u0435\u0442 \u0442\u043e\u0447\u043a\u0435;<br \/>\nj \u2013 \u043c\u0435\u0441\u0442\u043e\u043f\u043e\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u043f\u0435\u0440\u0432\u043e\u0439 \u0442\u043e\u0447\u043a\u0438;<br \/>\nm \u2013 \u043c\u0435\u0441\u0442\u043e\u043f\u043e\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0439 \u0442\u043e\u0447\u043a\u0438;<br \/>\nstr \u2013 \u0441\u0442\u0440\u043e\u043a\u0430 \u0442\u0435\u043a\u0441\u0442\u0430;<br \/>\ns1 \u2013 \u0432\u0441\u043f\u043e\u043c\u043e\u0433\u0430\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f.<\/p>\n<p><span style=\"text-decoration: underline;\">\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447\u0438:<\/span><\/p>\n<ol>\n<li> \u0432\u0432\u043e\u0434\u0438\u043c \u0441\u0442\u0440\u043e\u043a\u0443 str \u0438 \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u0435\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432\u0441\u043f\u043e\u043c\u043e\u0433\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0439 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 s1:=str;<\/li>\n<li>\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u043c\u0435\u0441\u0442\u043e\u043f\u043e\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u043f\u0435\u0440\u0432\u043e\u0439 \u0442\u043e\u0447\u043a\u0438 \u0432 \u0442\u0435\u043a\u0441\u0442\u0435; \u0435\u0441\u043b\u0438 \u0442\u043e\u0447\u043a\u0430 \u0435\u0441\u0442\u044c, \u0442\u043e \u0432\u044b\u0440\u0435\u0437\u0430\u0435\u043c \u0438\u0437 s1 \u0442\u0435\u043a\u0441\u0442 \u0434\u043e \u043d\u0435\u0435;<\/li>\n<li>\u0438\u0449\u0435\u043c \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u044e\u044e \u0442\u043e\u0447\u043a\u0443 \u0432 \u0446\u0438\u043a\u043b\u0435 while i&lt;&gt;0 do; \u0435\u0441\u043b\u0438 \u043e\u043d\u0430 \u0435\u0441\u0442\u044c, \u0442\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 m \u0443\u043a\u0430\u0437\u044b\u0432\u0430\u0435\u0442 \u043d\u0430 \u0435\u0435 \u043c\u0435\u0441\u0442\u043e\u043f\u043e\u043b\u043e\u0436\u0435\u043d\u0438\u0435;<\/li>\n<li>\u0432 \u0437\u0430\u0432\u0438\u0441\u0438\u043c\u043e\u0441\u0442\u0438 \u043e\u0442 \u043f\u0440\u0438\u0441\u0443\u0442\u0441\u0442\u0432\u0438\u044f \u0442\u043e\u0447\u0435\u043a \u0432\u044b\u0434\u0435\u043b\u044f\u0435\u043c \u043f\u043e\u0434\u0441\u0442\u0440\u043e\u043a\u0443 s1:=copy(str,j+1,m\u2013j\u20131) \u0438 \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u043d\u0430 \u044d\u043a\u0440\u0430\u043d.<\/li>\n<\/ol>\n<pre>var str, s1 : string;\r\n       i, m, j : integer;\r\nbegin\r\n        writeln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0442\u0435\u043a\u0441\u0442');\r\n        readln(str);\r\n        s1:=str; i:=pos('.',s1); j:=i; m:=0;\r\n        if (i&lt;&gt;0) then\r\n                       begin\r\n\t               while i&lt;&gt;0 do\r\n        \t                    begin delete(s1,1,i); m:=m+i; i:=pos('.',s1); end;\r\n                          if m&lt;&gt;j then\r\n\t                            begin\r\n                                       s1:=copy(str,j+1,m\u2013j\u20131);\r\n                                       writeln('\u0427\u0430\u0441\u0442\u044c \u0442\u0435\u043a\u0441\u0442\u0430 \u043c\u0435\u0436\u0434\u0443 1-\u0439 \u0438 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0439 \u0442\u043e\u0447\u043a\u043e\u0439');\r\n                                        writeln(s1);\r\n                                        end\r\n                          else writeln('\u0412 \u0442\u0435\u043a\u0441\u0442\u0435 \u0442\u043e\u043b\u044c\u043a\u043e \u043e\u0434\u043d\u0430 \u0442\u043e\u0447\u043a\u0430');\r\n\t           end\r\n\t           else writeln('\u0412 \u0442\u0435\u043a\u0441\u0442\u0435 \u043d\u0435\u0442 \u043d\u0438 \u043e\u0434\u043d\u043e\u0439 \u0442\u043e\u0447\u043a\u0438');\r\nend.\r\n<\/pre>\n<p><strong>\u0417\u0430\u0434\u0430\u0447\u0430 4.<br \/>\n<\/strong><\/p>\n<p><em>\u0414\u0430\u043d\u0430 \u0441\u0442\u0440\u043e\u043a\u0430 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432. \u041e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c, \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043b\u0438 \u043e\u043d\u0430 \u0437\u0430\u043f\u0438\u0441\u044c\u044e \u0434\u0435\u0441\u044f\u0442\u0438\u0447\u043d\u043e\u0433\u043e \u0447\u0438\u0441\u043b\u0430, \u043a\u0440\u0430\u0442\u043d\u043e\u0433\u043e \u0442\u0440\u0435\u043c.<\/em><\/p>\n<p>\u041d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0443\u0434\u043e\u0441\u0442\u043e\u0432\u0435\u0440\u0438\u0442\u044c\u0441\u044f, \u0447\u0442\u043e \u0432\u0432\u0435\u0434\u0435\u043d\u043d\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430 \u0441\u043e\u0441\u0442\u043e\u0438\u0442 \u0442\u043e\u043b\u044c\u043a\u043e \u0438\u0437 \u0446\u0438\u0444\u0440, \u0442.\u0435. \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043d\u0430 \u0432 \u0434\u0435\u0441\u044f\u0442\u0438\u0447\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e. \u0421\u0430\u043c\u043e \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u0446\u0438\u0444\u0440\u044b \u0432 \u0447\u0438\u0441\u043b\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u043e\u0447\u0435\u043d\u044c \u043f\u0440\u043e\u0441\u0442\u043e. \u041f\u043e\u0441\u043a\u043e\u043b\u044c\u043a\u0443 \u043a\u043e\u0434\u044b \u0441\u0438\u043c\u0432\u043e\u043b\u044c\u043d\u044b\u0445 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445 \u2013 \u0446\u0438\u0444\u0440 \u2013 \u0441\u043b\u0435\u0434\u0443\u044e\u0442 \u043e\u0434\u0438\u043d \u0437\u0430 \u0434\u0440\u0443\u0433\u0438\u043c, \u0442\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u044f ord \u0432 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u0438 ord(s1[i])\u2013ord(&#8216;0&#8217;) \u043f\u043e\u043c\u043e\u0436\u0435\u0442 \u043d\u0430\u043c \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u044d\u0442\u043e.<br \/>\n\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:<\/p>\n<p style=\"padding-left: 30px;\">i \u2013 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0446\u0438\u043a\u043b\u0430;<br \/>\ns1 \u2013 \u0441\u0442\u0440\u043e\u043a\u0430 \u0446\u0438\u0444\u0440;<br \/>\nm \u2013 \u0434\u043b\u0438\u043d\u0430 \u0441\u0442\u0440\u043e\u0447\u043a\u0438;<br \/>\nk \u2013 \u0441\u0447\u0435\u0442\u0447\u0438\u043a \u0446\u0438\u0444\u0440.<\/p>\n<p><span style=\"text-decoration: underline;\">\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447\u0438:<\/span><\/p>\n<ol>\n<li> \u0432\u0432\u043e\u0434\u0438\u043c \u0441\u0442\u0440\u043e\u043a\u0443 s1;<\/li>\n<li>\u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0443\u0435\u043c \u0432 \u0441\u0442\u0440\u043e\u043a\u0435 \u043f\u043e\u0438\u0441\u043a \u0446\u0438\u0444\u0440 \u0434\u043e \u0442\u0435\u0445 \u043f\u043e\u0440, \u043f\u043e\u043a\u0430 \u043d\u0435 \u0432\u0441\u0442\u0440\u0435\u0442\u0438\u043c \u043a\u043e\u043d\u0435\u0446 \u0441\u0442\u0440\u043e\u0447\u043a\u0438 \u0438\u043b\u0438 \u043d\u0435 \u043e\u0431\u043d\u0430\u0440\u0443\u0436\u0438\u043c \u043d\u0430\u043b\u0438\u0447\u0438\u0435 \u043e\u0448\u0438\u0431\u043a\u0438 \u0432 \u0430\u0440\u0438\u0444\u043c\u0435\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u043c \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u0438;<\/li>\n<li>\u0435\u0441\u043b\u0438 \u0432\u0441\u0442\u0440\u0435\u0447\u0430\u0435\u0442\u0441\u044f \u0446\u0438\u0444\u0440\u0430, \u0442\u043e \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0435\u0435 \u043a \u043e\u0431\u0449\u0435\u0439 \u0441\u0443\u043c\u043c\u0435 \u0446\u0438\u0444\u0440;<\/li>\n<li>\u043f\u043e\u0441\u043b\u0435 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0441\u0443\u043c\u043c\u044b \u0446\u0438\u0444\u0440 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c, \u043a\u0440\u0430\u0442\u043d\u0430 \u043b\u0438 \u043e\u043d\u0430 \u043d\u0430 \u0442\u0440\u0435\u043c;<\/li>\n<li>\u0432 \u0437\u0430\u0432\u0438\u0441\u0438\u043c\u043e\u0441\u0442\u0438 \u043e\u0442 \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0433\u043e \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0430 \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u043e\u0442\u0432\u0435\u0442 \u043d\u0430 \u044d\u043a\u0440\u0430\u043d.<\/li>\n<\/ol>\n<pre>var  s1 : string;\r\n        k, i, m : integer;\r\nbegin\r\n         writeln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0441\u0442\u0440\u043e\u043a\u0443');\r\n         readln(s1);\r\n         m:=length(s1);\r\n         k:=0; i:=1;\r\n         repeat\r\n                case s1[i] of\r\n                '0'..'9' :  k:=k+(ord(s1[i])\u2013ord('0'));\r\n                '  ' : ;\r\n                else k:=\u20131;\r\n                end;\r\n                i:=i+1;\r\n         until (i&gt;m) or (k&lt;0);\r\n         if k mod 3 = 0\r\n                       then writeln('\u042d\u0442\u043e \u0434\u0435\u0441\u044f\u0442\u0438\u0447\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e, \u043a\u0440\u0430\u0442\u043d\u043e\u0435 3')\r\n                       else writeln('\u042d\u0442\u043e \u043d\u0435 \u0434\u0435\u0441\u044f\u0442\u0438\u0447\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e, \u043a\u0440\u0430\u0442\u043d\u043e\u0435 3')\r\nend.\r\n<\/pre>\n<p><strong>\u0417\u0430\u0434\u0430\u0447\u0430 5.<br \/>\n<\/strong><\/p>\n<p><em>\u0414\u0430\u043d\u0430 \u0441\u0442\u0440\u043e\u043a\u0430 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432. \u0413\u0440\u0443\u043f\u043f\u044b \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u0432 \u043d\u0435\u0439 \u043c\u0435\u0436\u0434\u0443 \u0433\u0440\u0443\u043f\u043f\u0430\u043c\u0438 \u043f\u0440\u043e\u0431\u0435\u043b\u043e\u0432 \u0441\u0447\u0438\u0442\u0430\u044e\u0442\u0441\u044f \u0441\u043b\u043e\u0432\u0430\u043c\u0438. \u041f\u043e\u0441\u0447\u0438\u0442\u0430\u0442\u044c, \u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0441\u043b\u043e\u0432 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u0434\u0430\u043d\u043d\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430.<\/em><\/p>\n<p>\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:<\/p>\n<p style=\"padding-left: 30px;\">i \u2013 \u0432\u0441\u043f\u043e\u043c\u043e\u0433\u0430\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f;<br \/>\ns \u2013 \u0441\u0442\u0440\u043e\u043a\u0430 \u0442\u0435\u043a\u0441\u0442\u0430;<br \/>\nk \u2013 \u0441\u0447\u0435\u0442\u0447\u0438\u043a \u0441\u043b\u043e\u0432.<\/p>\n<p><span style=\"text-decoration: underline;\">\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447\u0438:<\/span><\/p>\n<ol>\n<li> \u0432\u0432\u043e\u0434\u0438\u043c \u0441\u0442\u0440\u043e\u043a\u0443 s;<\/li>\n<li>\u043d\u0430 \u043a\u0430\u0436\u0434\u043e\u043c \u0448\u0430\u0433\u0435 \u0432\u043d\u0435\u0448\u043d\u0435\u0433\u043e \u0446\u0438\u043a\u043b\u0430 \u043e\u0442\u044b\u0441\u043a\u0438\u0432\u0430\u0435\u043c \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u043e\u0435 \u0441\u043b\u043e\u0432\u043e \u0432 \u0441\u0442\u0440\u043e\u043a\u0435 \u0438  \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u0435\u043c \u0441\u0447\u0435\u0442\u0447\u0438\u043a \u0441\u043b\u043e\u0432;<\/li>\n<li>\u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u043d\u0430 \u044d\u043a\u0440\u0430\u043d.<\/li>\n<\/ol>\n<pre>var s: string;  i,k: integer;\r\nbegin\r\n  writeln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0441\u0442\u0440\u043e\u043a\u0443');\r\n  readln(s);\r\n  k:=0; i:=1;\r\n  while i&lt;=length(s) do\r\n       begin\r\n       {\u043f\u0440\u043e\u043f\u0443\u0441\u043a\u0430\u0435\u043c \u043f\u0440\u043e\u0431\u0435\u043b\u044b}\r\n       while (s[i]=' ') and (i&lt;=length(s)) do i := i+1;\r\n       if i&lt;=length(s) then k := k+1;\r\n       {\u0438\u0449\u0435\u043c \u043d\u043e\u0432\u044b\u0439 \u043f\u0440\u043e\u0431\u0435\u043b}\r\n       while (s[i]&lt;&gt;' ') and (i&lt;=length(s)) do i := i+1;\r\n       end;\r\n  writeln('\u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0441\u043b\u043e\u0432 =',k)\r\nend.\r\n<\/pre>\n<p><strong>\u0417\u0430\u0434\u0430\u0447\u0430 6.<br \/>\n<\/strong><\/p>\n<p><em>\u0414\u0430\u043d\u0430 \u0441\u0442\u0440\u043e\u043a\u0430 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432. \u0413\u0440\u0443\u043f\u043f\u044b \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u0432 \u043d\u0435\u0439 \u043c\u0435\u0436\u0434\u0443 \u0433\u0440\u0443\u043f\u043f\u0430\u043c\u0438 \u043f\u0440\u043e\u0431\u0435\u043b\u043e\u0432 \u0441\u0447\u0438\u0442\u0430\u044e\u0442\u0441\u044f \u0441\u043b\u043e\u0432\u0430\u043c\u0438. \u041e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0434\u043b\u0438\u043d\u0443 \u0441\u0430\u043c\u043e\u0433\u043e \u043a\u043e\u0440\u043e\u0442\u043a\u043e\u0433\u043e \u0438 \u0441\u0430\u043c\u043e\u0433\u043e \u0434\u043b\u0438\u043d\u043d\u043e\u0433\u043e \u0441\u043b\u043e\u0432\u0430.<\/em><\/p>\n<p>\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:<\/p>\n<p style=\"padding-left: 30px;\">i \u2013 \u0438\u043d\u0434\u0435\u043a\u0441 \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u043e\u0433\u043e \u0441\u0438\u043c\u0432\u043e\u043b\u0430 \u0432 \u0441\u0442\u0440\u043e\u043a\u0435;<br \/>\ns \u2013 \u0441\u0442\u0440\u043e\u043a\u0430 \u0442\u0435\u043a\u0441\u0442\u0430;<br \/>\nbeginStr \u0438 endStr \u2013 \u043d\u0430\u0447\u0430\u043b\u043e \u0438 \u043a\u043e\u043d\u0435\u0446 \u0441\u043b\u043e\u0432\u0430;<br \/>\nlen \u2013 \u0434\u043b\u0438\u043d\u0430 \u0441\u043b\u043e\u0432\u0430;<br \/>\nmax \u2013 \u0434\u043b\u0438\u043d\u0430 \u043d\u0430\u0438\u0431\u043e\u043b\u044c\u0448\u0435\u0433\u043e \u0441\u043b\u043e\u0432\u0430;<br \/>\nmin \u2013 \u0434\u043b\u0438\u043d\u0430 \u043d\u0430\u0438\u043c\u0435\u043d\u044c\u0448\u0435\u0433\u043e \u0441\u043b\u043e\u0432\u0430.<\/p>\n<p><span style=\"text-decoration: underline;\">\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447\u0438:<\/span><\/p>\n<ol>\n<li> \u0432\u0432\u043e\u0434\u0438\u043c \u0441\u0442\u0440\u043e\u043a\u0443 s;<\/li>\n<li>\u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u044b\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f max \u0438 min;<\/li>\n<li>\u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0443\u0435\u043c \u0432\u043d\u0435\u0448\u043d\u0438\u0439 \u0446\u0438\u043a\u043b \u0434\u043b\u044f \u043f\u043e\u0438\u0441\u043a\u0430 \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u043e\u0433\u043e \u0441\u043b\u043e\u0432\u0430 \u0432 \u0441\u0442\u0440\u043e\u043a\u0435;<\/li>\n<li>\u043d\u0430\u0439\u0434\u044f \u0441\u043b\u043e\u0432\u043e, \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u0435\u0433\u043e \u0434\u043b\u0438\u043d\u0443 \u0438 \u043f\u0440\u0438 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0441\u0442\u0438 \u043a\u043e\u0440\u0440\u0435\u043a\u0442\u0438\u0440\u0443\u0435\u043c max \u0438 min;<\/li>\n<li>\u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u043d\u0430 \u044d\u043a\u0440\u0430\u043d.<\/li>\n<\/ol>\n<pre>var s:string;\r\n    i,min,max,beginStr,endStr,len:integer;\r\nbegin\r\n  writeln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0441\u0442\u0440\u043e\u043a\u0443');\r\n  readln(s);\r\n  max:=0; min:=255;\r\n  i:=1;\r\n  while i&lt;=length(s) do\r\n       begin\r\n       {\u043f\u0440\u043e\u043f\u0443\u0441\u043a\u0430\u0435\u043c \u043f\u0440\u043e\u0431\u0435\u043b\u044b}\r\n       while (s[i]=' ') and (i&lt;=length(s)) do i:=i+1;\r\n       if i&lt;=length(s) then begin\r\n                            beginStr:=i;\r\n                            {\u043d\u0430\u0448\u043b\u0438 \u043d\u0430\u0447\u0430\u043b\u043e \u0441\u043b\u043e\u0432\u0430, \u0438\u0449\u0435\u043c \u0435\u0433\u043e \u043a\u043e\u043d\u0435\u0446}\r\n                            while (s[i]&lt;&gt;' ') and (i&lt;=length(s)) do                                        i:=i+1;                             endStr:=i\u20131;                             writeln(beginStr,'\u2013',endStr);                             len:=endStr\u2013beginStr+1;                             if len&gt;max then max:=len;\r\n                            if len&lt;&gt; 0 do delete (s, pos('..', s), 1);\r\n        writeln('\u041f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430 : ', s);\r\nend.\r\n<\/pre>\n<p><strong>\u0417\u0430\u0434\u0430\u0447\u0430 8.<br \/>\n<\/strong><\/p>\n<p><em>\u041f\u0440\u0438\u0441\u0432\u043e\u0438\u0442\u044c \u043b\u0438\u0442\u0435\u0440\u043d\u044b\u043c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u043c \u04412, \u04411 \u0438 \u04410 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043b\u0435\u0432\u0443\u044e, \u0441\u0440\u0435\u0434\u043d\u044e\u044e \u0438 \u043f\u0440\u0430\u0432\u0443\u044e \u0446\u0438\u0444\u0440\u044b \u0442\u0440\u0435\u0445\u0437\u043d\u0430\u0447\u043d\u043e\u0433\u043e \u0447\u0438\u0441\u043b\u0430 k.<\/em><\/p>\n<pre>var c0, c1, c2 : char;\r\n          n0, k, d : integer;\r\nbegin\r\n        writeln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0442\u0440\u0435\u0445\u0437\u043d\u0430\u0447\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e');\r\n        readln(k);\r\n        n0:=ord('0');\r\n        d:=k div 100;              c2:=chr(n0+d);\r\n        d:=k mod 100 div 10; c1:=chr(n0+d);\r\n        d:=k mod 10;              c0:=chr(n0+d);\r\n        writeln('c2= ', c2);\r\n        writeln('c1= ',c1);\r\n        writeln('c0= ',c0);\r\nend.\r\n<\/pre>\n<p><strong>\u0417\u0430\u0434\u0430\u0447\u0430 9.<br \/>\n<\/strong><\/p>\n<p><em>\u0418\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u0442\u043e\u043b\u044c\u043a\u043e \u043b\u0438\u0442\u0435\u0440\u043d\u044b\u0439 \u0432\u0432\u043e\u0434, \u0442.\u0435. \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 readln(c), \u0433\u0434\u0435 \u0441 \u2013 \u043b\u0438\u0442\u0435\u0440\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f, \u0432\u0432\u0435\u0441\u0442\u0438 \u043d\u0435\u043f\u0443\u0441\u0442\u0443\u044e \u043f\u043e\u0441\u043b\u0435-\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c \u0446\u0438\u0444\u0440, \u043f\u0435\u0440\u0435\u0434 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u043c\u043e\u0436\u0435\u0442 \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u044c\u0441\u044f \u0437\u043d\u0430\u043a &#8221; + &#8221; \u0438\u043b\u0438 &#8221; \u2013 &#8221; \u0438 \u0437\u0430 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u0441\u043b\u0435\u0434\u0443\u0435\u0442 \u043f\u0440\u043e\u0431\u0435\u043b, \u0438, \u043f\u043e\u043b\u0443\u0447\u0438\u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442-\u0432\u0443\u044e\u0449\u0435\u0435 \u0447\u0438\u0441\u043b\u043e, \u043f\u0440\u0438\u0441\u0432\u043e\u0438\u0442\u044c \u0435\u0433\u043e \u0446\u0435\u043b\u043e\u0439 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 k.<\/em><\/p>\n<pre>var c : char;\r\n      sign, n0, k : integer;\r\nbegin\r\n         {\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u0437\u043d\u0430\u043a\u0430 \u0447\u0438\u0441\u043b\u0430:}\r\n         sign:=1;\r\n         readln(c);\r\n         if c='\u2013' then\r\n                    begin sign:=\u20131; readln(c) end\r\n                    else    if c='+' then readln(c);\r\n         {\u0447\u0442\u0435\u043d\u0438\u0435 \u0446\u0438\u0444\u0440 (\u043f\u0435\u0440\u0432\u0430\u044f \u2013 \u0432 c) \u0438 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0435 \u0430\u0431\u0441\u043e\u043b\u044e\u0442\u043d\u043e\u0439 \u0432\u0435\u043b\u0438\u0447\u0438\u043d\u044b \u0447\u0438\u0441\u043b\u0430 k \u043f\u043e \u0441\u0445\u0435\u043c\u0435  \u0413\u043e\u0440\u043d\u0435\u0440\u0430:}\r\n         n0:=ord('0'); k:=0;\r\n         repeat\r\n                  k:=10*k+ord(c)\u2013n0;\r\n                   readln(c)\r\n         until c=' ';\r\n         {\u0443\u0447\u0435\u0442 \u0437\u043d\u0430\u043a\u0430:}\r\n         k:=sign*k;  writeln(k);\r\nend.\r\n<\/pre>\n<p><strong>\u0417\u0430\u0434\u0430\u0447\u0430 10.<\/strong><\/p>\n<p><em>\u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430. \u041d\u0430\u043f\u0435\u0447\u0430\u0442\u0430\u0442\u044c \u0437\u0430\u0434\u0430\u043d\u043d\u0443\u044e \u043d\u0435\u043f\u0443\u0441\u0442\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443:<\/em><br \/>\n\u0430) \u0443\u0434\u0430\u043b\u0438\u0432 \u0438\u0437 \u043d\u0435\u0435 \u0432\u0441\u0435 \u0446\u0438\u0444\u0440\u044b \u0438 \u0443\u0434\u0432\u043e\u0438\u0432 \u0437\u043d\u0430\u043a\u0438 \u00ab + \u00bb \u0438 \u00ab \u2013 \u00bb :<\/p>\n<pre>var s : string;\r\ni : integer;\r\nbegin\r\nwriteln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0441\u0442\u0440\u043e\u043a\u0443:');\r\nreadln(s);\r\nfor i:=1 to length(s) do   if (s[i]='+')or(s[i]='\u2013') then write(s[i],s[i])\r\n         else  if (s[i]&lt;'0')or(s[i]&gt;'9') then write(s[i]);\r\n         writeln\r\nend.\r\n<\/pre>\n<p>\u0431) \u0443\u0434\u0430\u043b\u0438\u0432 \u0438\u0437 \u043d\u0435\u0435 \u0432\u0441\u0435 \u0437\u043d\u0430\u043a\u0438 \u00ab + \u00bb , \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0437\u0430 \u043a\u043e\u0442\u043e\u0440\u044b\u043c\u0438 \u0438\u0434\u0435\u0442 \u0446\u0438\u0444\u0440\u0430:<\/p>\n<pre>var a, b : char;    {a \u2013 \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u0430\u044f \u043b\u0438\u0442\u0435\u0440\u0430 \u0441\u0442\u0440\u043e\u043a\u0438, b \u2013 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0430\u044f}\r\n          s : string;\r\n           i : integer;\r\nbegin\r\n        writeln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0441\u0442\u0440\u043e\u043a\u0443:');\r\n        readln(s);\r\n        for i:=1 to length(s) do\r\n        begin\r\n              a:=s[i];\r\n              if a&lt;&gt;'+' then write(a)\r\n                             else   if i&lt;'0') or (b&gt;'9') then write(a)\r\n                                                                     end\r\n                                                            else write(a);\r\n        end;\r\n        writeln\r\nend.\r\n<\/pre>\n<p><strong>\u0417\u0430\u0434\u0430\u0447\u0430 11.<\/strong><\/p>\n<pre>type str=string[100];\r\n<\/pre>\n<p><em>\u041e\u043f\u0438\u0441\u0430\u0442\u044c \u0444\u0443\u043d\u043a\u0446\u0438\u044e count(s), \u043f\u043e\u0434\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u044e\u0449\u0443\u044e \u043e\u0431\u0449\u0435\u0435 \u043a\u043e\u043b\u0438-\u0447\u0435\u0441\u0442\u0432\u043e \u0446\u0438\u0444\u0440 \u0438 \u0437\u043d\u0430\u043a\u043e\u0432 &#8216; + &#8216;,  &#8216; \u2013 &#8216; \u0438 &#8216; * &#8216;, \u0432\u0445\u043e\u0434\u044f\u0449\u0438\u0445 \u0432 \u0441\u0442\u0440\u043e\u043a\u0443 s.<\/em><\/p>\n<p>\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:<\/p>\n<p style=\"padding-left: 30px;\">\u0430) \u0432 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 count:<\/p>\n<p style=\"padding-left: 60px;\">s \u2013 \u0441\u0442\u0440\u043e\u043a\u0430 (\u0444\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u044b\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440);<br \/>\ni \u2013 \u0441\u0447\u0435\u0442\u0447\u0438\u043a \u0446\u0438\u043a\u043b\u0430 (\u043b\u043e\u043a\u0430\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f);<br \/>\nk \u2013 \u043e\u0431\u0449\u0435\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0446\u0438\u0444\u0440 \u0438 \u0437\u043d\u0430\u043a\u043e\u0432 \u2018 + \u2019 , \u2018 * \u2019 ,  \u2018 \u2013 \u2018 \u0432 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0435 (\u043b\u043e\u043a\u0430\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f);<\/p>\n<p style=\"padding-left: 30px;\">\u0431) \u0432 \u043e\u0441\u043d\u043e\u0432\u043d\u043e\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435:<\/p>\n<p style=\"padding-left: 60px;\">s1 \u2013 \u0432\u0432\u0435\u0434\u0435\u043d\u043d\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430 (\u043b\u043e\u043a\u0430\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f);<br \/>\nk1 \u2013 \u043e\u0431\u0449\u0435\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0446\u0438\u0444\u0440 \u0438 \u0437\u043d\u0430\u043a\u043e\u0432 \u2018+\u2019, \u2018*\u2019, \u2018\u2013\u2018 \u0432 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0435 s1 (\u0444\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0439         \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440).<\/p>\n<p><span style=\"text-decoration: underline;\">\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447\u0438:<\/span><\/p>\n<ol>\n<li> \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u044e count, \u043f\u043e\u0434\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u044e\u0449\u0443\u044e \u043e\u0431\u0449\u0435\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0446\u0438\u0444\u0440 \u0438 \u0437\u043d\u0430\u043a\u043e\u0432 \u2018+\u2019, \u2018*\u2019, \u2018\u2013\u2018 \u0432 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0435;<\/li>\n<li>\u0432\u0432\u043e\u0434\u0438\u043c \u0441\u0442\u0440\u043e\u043a\u0443 s1;<\/li>\n<li>\u0432\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u044e count \u0438 \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0441\u0447\u0435\u0442\u0447\u0438\u043a\u0430 k1 \u043d\u0430 \u044d\u043a\u0440\u0430\u043d;<\/li>\n<li>\u0437\u0430\u0432\u0435\u0440\u0448\u0430\u0435\u043c \u0440\u0430\u0431\u043e\u0442\u0443 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b.<\/li>\n<\/ol>\n<pre>type str=string[100];\r\nvar s1 : str;\r\n       k1 : integer;\r\nfunction count(var s:str) : integer;\r\nvar i, k : integer;\r\nbegin\r\n         k:=0;\r\n         for i:=1 to length(s) do if s[i] in ['0'..'9', '+', '\u2013', '*'] then k:=k+1;\r\n         count:=k\r\nend;\r\n begin\r\nwriteln('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0441\u0442\u0440\u043e\u043a\u0443');\r\n readln(s1);\r\nk1:=count(s1);\r\nwriteln('\u041a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0446\u0438\u0444\u0440 \u0438 \u0437\u043d\u0430\u043a\u043e\u0432 \u2013 ', k1:5);\r\nend.\r\n<\/pre>\n<p><strong>\u0417\u0430\u0434\u0430\u0447\u0430 12.<\/strong><\/p>\n<pre>type M=set of 0..99;\r\n<\/pre>\n<p><em>\u041e\u043f\u0438\u0441\u0430\u0442\u044c \u0444\u0443\u043d\u043a\u0446\u0438\u044e card(A), \u043f\u043e\u0434\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u044e\u0449\u0443\u044e \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0430 A \u0442\u0438\u043f\u0430 M (\u043d\u043e\u043b\u044c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0439\u0442\u0435 \u043a\u0430\u043a \u043f\u0440\u0435\u043a\u0440\u0430\u0449\u0435\u043d\u0438\u0435 \u0432\u0432\u043e\u0434\u0430). (\u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, card([5,8,23])=3.)<\/em><\/p>\n<p>\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:<\/p>\n<p style=\"padding-left: 30px;\">\u0430) \u0432 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 card:<\/p>\n<p style=\"padding-left: 60px;\">A \u2013 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e (\u0444\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u044b\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440);<br \/>\np \u2013 \u0441\u0447\u0435\u0442\u0447\u0438\u043a \u0446\u0438\u043a\u043b\u0430 \u043e\u0442 0 \u0434\u043e 99 (\u043b\u043e\u043a\u0430\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f);<br \/>\nk \u2013 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0430 \u0410 (\u043b\u043e\u043a\u0430\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d-\u043d\u0430\u044f);<\/p>\n<p style=\"padding-left: 30px;\">\u0431) \u0432 \u043e\u0441\u043d\u043e\u0432\u043d\u043e\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435:<\/p>\n<p style=\"padding-left: 60px;\">x \u2013 \u0432\u0432\u0435\u0434\u0435\u043d\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e (\u043b\u043e\u043a\u0430\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f);<br \/>\nb \u2013 \u0441\u043e\u0437\u0434\u0430\u043d\u043d\u043e\u0435 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e (\u043b\u043e\u043a\u0430\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f);<br \/>\nk1 \u2013 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u0432 \u0441\u043e\u0437\u0434\u0430\u043d\u043d\u043e\u043c \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0435 (\u0444\u0430\u043a\u0442\u0438-\u0447\u0435\u0441\u043a\u0438\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440).<\/p>\n<p><span style=\"text-decoration: underline;\">\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447\u0438:<\/span><\/p>\n<ol>\n<li> \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u044e card, \u043f\u043e\u0434\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u044e\u0449\u0443\u044e \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0430;<\/li>\n<li>\u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0443\u0435\u043c \u043f\u0443\u0441\u0442\u043e\u0435 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e;<\/li>\n<li>\u0432 \u0446\u0438\u043a\u043b\u0435 repeat \u2026 until  \u0432\u0432\u043e\u0434\u0438\u043c \u0447\u0438\u0441\u043b\u0430 \u0434\u043e \u0442\u0435\u0445 \u043f\u043e\u0440, \u043f\u043e\u043a\u0430 \u043d\u0435 \u0432\u0432\u0435\u043b\u0438 0, \u0438 \u0434\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0438\u0445 \u0432\u043e \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e;<\/li>\n<li>\u0432\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u044e card \u0438 \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0441\u0447\u0435\u0442\u0447\u0438\u043a\u0430 k1 \u043d\u0430 \u044d\u043a\u0440\u0430\u043d;<\/li>\n<li>\u0437\u0430\u0432\u0435\u0440\u0448\u0430\u0435\u043c \u0440\u0430\u0431\u043e\u0442\u0443 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b.<\/li>\n<\/ol>\n<pre>type M=set of 0..99;\r\nvar b : m;\r\n    k1, x : integer;\r\nfunction card(A:M) : integer;\r\nvar p,k : integer;\r\nbegin\r\n        k:=0;         for p:=0 to 99 do if p in A then k:=k+1;\r\n        card:=k\r\nend;\r\n begin      b:=[ ];\r\nrepeat  write('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0447\u0438\u0441\u043b\u043e &gt;0&lt;=99 \u2013 ');\r\nreadln(x); b:=b+[x];\r\nuntil x=0;\r\nk1:=card(b);\r\nwriteln('\u041a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0440\u0430\u0437\u043b\u0438\u0447\u043d\u044b\u0445 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0430', k1);\r\nend.\r\n<\/pre>\n<p><strong>\u0417\u0430\u0434\u0430\u0447\u0430 13.<\/strong><\/p>\n<p><em>\u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430. \u0414\u0430\u043d\u0430 \u0441\u0442\u0440\u043e\u043a\u0430 \u0438\u0437 \u0441\u0442\u0440\u043e\u0447\u043d\u044b\u0445 \u043b\u0430\u0442\u0438\u043d\u0441\u043a\u0438\u0445 \u0431\u0443\u043a\u0432. \u041d\u0430\u043f\u0435\u0447\u0430\u0442\u0430\u0442\u044c \u043f\u0435\u0440\u0432\u044b\u0435 \u0432\u0445\u043e\u0436\u0434\u0435\u043d\u0438\u044f \u0431\u0443\u043a\u0432 \u0432 \u0442\u0435\u043a\u0441\u0442, \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u044f \u0438\u0445 \u0438\u0441\u0445\u043e\u0434-\u043d\u044b\u0439 \u0432\u0437\u0430\u0438\u043c\u043d\u044b\u0439 \u043f\u043e\u0440\u044f\u0434\u043e\u043a.<\/em><\/p>\n<p>\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:<\/p>\n<p style=\"padding-left: 30px;\">let \u2013 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e \u043c\u0430\u043b\u044b\u0445 \u043b\u0430\u0442\u0438\u043d\u0441\u043a\u0438\u0445 \u0431\u0443\u043a\u0432;<br \/>\nc \u2013 \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u043e\u0439 \u0441\u0438\u043c\u0432\u043e\u043b \u0441\u0442\u0440\u043e\u043a\u0438;<br \/>\ns \u2013 \u0432\u0432\u0435\u0434\u0435\u043d\u043d\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430;<br \/>\ni \u2013 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0446\u0438\u043a\u043b\u0430.<\/p>\n<p><span style=\"text-decoration: underline;\">\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447\u0438:<\/span><\/p>\n<ol>\n<li> \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0443\u0435\u043c \u043f\u0443\u0441\u0442\u043e\u0435 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e let;<\/li>\n<li>\u0432\u0432\u043e\u0434\u0438\u043c \u0441\u0442\u0440\u043e\u0447\u043a\u0443 s;<\/li>\n<li>\u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0443\u0435\u043c \u0446\u0438\u043a\u043b, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u043f\u0440\u043e\u0441\u043c\u0430\u0442\u0440\u0438\u0432\u0430\u0435\u043c \u0441\u0438\u043c\u0432\u043e\u043b\u044b \u0441\u0442\u0440\u043e\u043a\u0438 s \u0434\u043e \u0442\u0435\u0445 \u043f\u043e\u0440, \u043f\u043e\u043a\u0430 \u043d\u0435 \u0432\u0441\u0442\u0440\u0435\u0442\u0438\u043c \u2018.\u2019, \u0438 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c, \u0432\u0445\u043e\u0434\u0438\u0442 \u043b\u0438 \u044d\u0442\u043e\u0442 \u0441\u0438\u043c\u0432\u043e\u043b \u0432\u043e \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e let (\u0442.\u0435. \u0441\u0438\u043c\u0432\u043e\u043b \u2013 \u043c\u0430\u043b\u0430\u044f \u043b\u0430\u0442\u0438\u043d\u0441\u043a\u0430\u044f \u0431\u0443\u043a-\u0432\u0430);<\/li>\n<li>\u0435\u0441\u043b\u0438 \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u043e\u0439 \u0441\u0438\u043c\u0432\u043e\u043b \u0441\u0442\u0440\u043e\u043a\u0438 \u043d\u0435 \u0432\u0445\u043e\u0434\u0438\u0442 \u0432\u043e \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e let, \u0442\u043e \u044d\u0442\u043e\u0442 \u0441\u0438\u043c\u0432\u043e\u043b \u0432\u0441\u0442\u0440\u0435\u0442\u0438\u043b\u0441\u044f \u0432\u043f\u0435\u0440\u0432\u044b\u0435, \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0435\u0435 \u043d\u0430 \u044d\u043a\u0440\u0430\u043d \u0438 \u0434\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432\u043e \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e;<\/li>\n<li>\u0437\u0430\u0432\u0435\u0440\u0448\u0430\u0435\u043c \u0440\u0430\u0431\u043e\u0442\u0443 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b.<\/li>\n<\/ol>\n<pre>var\r\n         let : set of 'a'..'z';\r\n         s : string;  c : char;  i : integer;\r\nbegin\r\n         let:=[ ];      {\u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e \u0431\u0443\u043a\u0432 \u0432 \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0435\u043d\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438 \u0442\u0435\u043a\u0441\u0442\u0430}\r\n         readln(s);\r\n         i:=1;\r\n         while s[i]&lt;&gt;'.' do\r\n         begin if not(s[i] in let) then        {1-\u0435 \u0432\u0445\u043e\u0436\u0434\u0435\u043d\u0438\u0435}\r\n                                               begin write(s[i]); c:=s[i]; let:=let+[c] end;                    i:=i+1;\r\n         end;\r\n         writeln\r\nend.\r\n<\/pre>\n<p><strong>\u0417\u0430\u0434\u0430\u0447\u0430 14.<\/strong><\/p>\n<p>type series=file of real;<\/p>\n<p><em>\u041e\u043f\u0438\u0441\u0430\u0442\u044c \u0444\u0443\u043d\u043a\u0446\u0438\u044e neg(s), \u043f\u043e\u0434\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u044e\u0449\u0443\u044e \u0441\u0443\u043c\u043c\u0443 \u043e\u0442\u0440\u0438\u0446\u0430\u0442\u0435\u043b\u044c-\u043d\u044b\u0445 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u0432 \u0444\u0430\u0439\u043b\u0435 s \u0442\u0438\u043f\u0430 series.<\/em><\/p>\n<p>\u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435:<\/p>\n<p style=\"padding-left: 30px;\">\u0430) \u043e\u0441\u043d\u043e\u0432\u043d\u0430\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430:<\/p>\n<p style=\"padding-left: 60px;\">f \u2013 \u0444\u0430\u0439\u043b \u0432\u0435\u0449\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0445 \u0447\u0438\u0441\u0435\u043b (\u0433\u043b\u043e\u0431\u0430\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f);<br \/>\ny \u2013 \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e \u0434\u043b\u044f \u0437\u0430\u043f\u0438\u0441\u0438 \u0432 \u0444\u0430\u0439\u043b (\u0433\u043b\u043e\u0431\u0430\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435-\u043c\u0435\u043d\u043d\u0430\u044f);<br \/>\nn \u2013 \u0441\u0443\u043c\u043c\u0430 \u043e\u0442\u0440\u0438\u0446\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u0444\u0430\u0439\u043b\u0430 (\u0433\u043b\u043e\u0431\u0430\u043b\u044c\u043d\u0430\u044f \u043f\u0435-\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f);<br \/>\nk \u2013 \u0441\u0447\u0435\u0442\u0447\u0438\u043a \u0446\u0438\u0444\u0440.<\/p>\n<p style=\"padding-left: 30px;\">\u0431) \u0444\u0443\u043d\u043a\u0446\u0438\u044f neg:<\/p>\n<p style=\"padding-left: 60px;\">s \u2013 \u0444\u0430\u0439\u043b\u043e\u0432\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f (\u043b\u043e\u043a\u0430\u043b\u044c\u043d\u0430\u044f, \u0444\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d-\u043d\u0430\u044f);<br \/>\nx \u2013 \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u043e\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u0444\u0430\u0439\u043b\u0430 (\u043b\u043e\u043a\u0430\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f);<br \/>\nsum \u2013 \u0441\u0443\u043c\u043c\u0430 \u043e\u0442\u0440\u0438\u0446\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u0444\u0430\u0439\u043b\u0430 (\u043b\u043e\u043a\u0430\u043b\u044c\u043d\u0430\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f).<\/p>\n<p><span style=\"text-decoration: underline;\">\u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447\u0438:<\/span><\/p>\n<ol>\n<li> \u0441\u0432\u044f\u0436\u0435\u043c \u0444\u0430\u0439\u043b proba.txt \u0441 \u0444\u0430\u0439\u043b\u043e\u0432\u043e\u0439 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 f \u0438 \u043e\u0442\u043a\u0440\u043e\u0435\u043c \u0435\u0433\u043e \u0434\u043b\u044f \u0437\u0430\u043f\u0438\u0441\u0438;<\/li>\n<li>\u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0443\u0435\u043c \u0446\u0438\u043a\u043b, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u0432\u0432\u043e\u0434\u0438\u043c \u0447\u0438\u0441\u043b\u0430 \u0438 \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0438\u0445 \u0432 \u0444\u0430\u0439\u043b \u0434\u043e \u0442\u0435\u0445 \u043f\u043e\u0440, \u043f\u043e\u043a\u0430 \u043d\u0435 \u0432\u0432\u0435\u0434\u0435\u043c 0;<\/li>\n<li>\u0432\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u044e neg, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u043e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u0444\u0430\u0439\u043b \u0434\u043b\u044f \u0447\u0442\u0435\u043d\u0438\u044f, \u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u044b \u0444\u0430\u0439\u043b\u0430 \u0438 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u0441\u0443\u043c\u043c\u0443 \u043e\u0442\u0440\u0438\u0446\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u0444\u0430\u0439\u043b\u0430;<\/li>\n<li>\u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0441\u0443\u043c\u043c\u044b \u043d\u0430 \u044d\u043a\u0440\u0430\u043d.<\/li>\n<\/ol>\n<pre>type series=file of real;\r\nvar f : series;\r\n      n,y : real;\r\nfunction neg(var s : series) : real;\r\nvar sum,x : real;\r\nbegin\r\n      reset(s); sum:=0;       while not eof(s) do       begin             read(s,x);              if x&lt;0 then sum:=sum+x\r\n      end;\r\n      neg:=sum ; close(s)\r\nend;\r\nbegin\r\n     assign (f,'c:\\tp\\bin\\proba.txt');\r\n     rewrite(f);\r\n     repeat\r\n            write('\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0447\u0438\u0441\u043b\u043e (0 \u2013 \u043a\u043e\u043d\u0435\u0446 \u0432\u0432\u043e\u0434\u0430)\u2013 ');\r\n            readln(y);\r\n            write(f,y);\r\n     until (y=0);\r\n     close (f);\r\n     n:=neg(f);\r\n     writeln('\u0421\u0443\u043c\u043c\u0430 \u043e\u0442\u0440\u0438\u0446\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u0444\u0430\u0439\u043b\u0430 n= ',n:10:3);\r\n     close(f);\r\nend.\r\n<\/pre>\n<p>15.<\/p>\n<pre>type row=file of 0..999;\r\n<\/pre>\n<p>\u041e\u043f\u0438\u0441\u0430\u0442\u044c \u043b\u043e\u0433\u0438\u0447\u0435\u0441\u043a\u0443\u044e \u0444\u0443\u043d\u043a\u0446\u0438\u044e sort(r), \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u044e\u0449\u0443\u044e, \u0443\u043f\u043e\u0440\u044f-\u0434\u043e\u0447\u0435\u043d\u044b \u043b\u0438 \u043f\u043e \u0432\u043e\u0437\u0440\u0430\u0441\u0442\u0430\u043d\u0438\u044e \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u044b \u043d\u0435\u043f\u0443\u0441\u0442\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430 r \u0442\u0438\u043f\u0430 row.<\/p>\n<pre>type row1 = 0..999;\r\n        row = file of row1;\r\n\r\nvar r : row;\r\n    x,y : row1;\r\n    i,k : integer;\r\nfunction sort(var r : row) : boolean;\r\nvar x,y : row1; ok : boolean;\r\nbegin\r\n      reset(r);\r\n      read(r,y); ok:=true;       while not eof(r) and ok do            begin x:=y; read(r,y);  ok:=x<\/pre>\n<p>16.<\/p>\n<pre>type reals=file of real;\r\n<\/pre>\n<p>\u041e\u043f\u0438\u0441\u0430\u0442\u044c \u0444\u0443\u043d\u043a\u0446\u0438\u044e less(f) \u043e\u0442 \u043d\u0435\u043f\u0443\u0441\u0442\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430 f \u0442\u0438\u043f\u0430  reals, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u043f\u043e\u0434\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u0442 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u0444\u0430\u0439\u043b\u0430 f, \u043c\u0435\u043d\u044c\u0448\u0438\u0445 \u0441\u0440\u0435\u0434\u043d\u0435\u0433\u043e \u0430\u0440\u0438\u0444\u043c\u0435\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u0432\u0441\u0435\u0445 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u044d\u0442\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430.<\/p>\n<pre>type reals = file of real;\r\nvar f1 : reals;\r\n      a : real;l,i : integer;\r\nfunction less(var f : reals) : integer;\r\nvar k : integer; x,s : real;\r\nbegin                                    {\u043f\u043e\u0434\u0441\u0447\u0435\u0442 \u0441\u0440\u0435\u0434\u043d\u0435\u0433\u043e \u0430\u0440\u0438\u0444\u043c\u0435\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e:}\r\n      reset(f); k:=0; s:=0;\r\n      repeat\r\n           read(f,x);\r\n           k:=k+1;            s:=s+x       until eof(f);       s:=s\/k;      {\u043d\u043e\u0432\u044b\u0439 \u043f\u0440\u043e\u0441\u043c\u043e\u0442\u0440 f \u0438 \u043f\u043e\u0434\u0441\u0447\u0435\u0442 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432<\/pre>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[600,13],"tags":[599,604,603],"class_list":["post-2401","post","type-post","status-publish","format-standard","hentry","category-programming","category-education","tag-pascal","tag-mnozhestva","tag-strokovyjj-tip"],"_links":{"self":[{"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/posts\/2401"}],"collection":[{"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/comments?post=2401"}],"version-history":[{"count":0,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/posts\/2401\/revisions"}],"wp:attachment":[{"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/media?parent=2401"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/categories?post=2401"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/msbro.ru\/index.php\/wp-json\/wp\/v2\/tags?post=2401"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}<!-- WP Super Cache is installed but broken. The constant WPCACHEHOME must be set in the file wp-config.php and point at the WP Super Cache plugin directory. -->