{"id":178229,"date":"2013-04-28T13:37:04","date_gmt":"2013-04-28T09:37:04","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=178229"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=178229","title":{"rendered":"<span class=\"post_title\">\u0417\u0430\u043f\u0438\u0441\u043a\u0438 \u0441\u0442\u0443\u0434\u0435\u043d\u0442\u0430-\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u0430: \u041e\u043b\u0438\u043c\u043f\u0438\u0430\u0434\u0430<\/span>"},"content":{"rendered":"<div class=\"content html_format\">\n<h5>\u0412\u0441\u0442\u0443\u043f\u043b\u0435\u043d\u0438\u0435<\/h5>\n<p>  \u041f\u0440\u0438\u0432\u0435\u0442, \u0425\u0430\u0431\u0440\u043e\u0432\u0447\u0430\u043d\u0435.<br \/>  \u0412\u0435\u0441\u043d\u043e\u0439 \u043e\u0431\u044b\u0447\u043d\u043e \u043f\u0440\u043e\u0432\u043e\u0434\u0438\u0442\u0441\u044f \u0446\u0435\u043b\u0430\u044f \u043a\u0443\u0447\u0430 \u043e\u043b\u0438\u043c\u043f\u0438\u0430\u0434. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u043d\u0435 \u0438\u0441\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435. \u0417\u0430\u0449\u0438\u0449\u0430\u0442\u044c \u0447\u0435\u0441\u0442\u044c \u043c\u043e\u0435\u0433\u043e \u0443\u0447\u0435\u0431\u043d\u043e\u0433\u043e \u0437\u0430\u0432\u0435\u0434\u0435\u043d\u0438\u044f (\u044f \u0443\u0447\u0443\u0441\u044c \u0432 \u0442\u0435\u0445\u043d\u0438\u043a\u0443\u043c\u0435, \u043e\u043f\u044b\u0442\u0430 \u043c\u0430\u043b\u043e, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u043f\u0440\u043e\u0441\u0442\u0438\u0442\u0435 \u043c\u043e\u0439 \u043d\u0443\u0431\u043e\u043a\u043e\u0434) \u0434\u043e\u0432\u0435\u0440\u0438\u043b\u0438 \u043c\u043d\u0435 \u0438 \u043c\u043e\u0435\u043c\u0443 \u043e\u0434\u043d\u043e\u0433\u0440\u0443\u043f\u043f\u043d\u0438\u043a\u0443. <br \/>  \u0423 \u043d\u0430\u0441 \u043f\u0440\u0430\u0432\u0438\u043b\u0430 \u043f\u0440\u043e\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u0442\u0430\u043a\u0438\u0435: \u0437\u0430 \u043c\u0435\u0441\u044f\u0446 \u0434\u043e \u043e\u043b\u0438\u043c\u043f\u0438\u0430\u0434\u044b \u0432\u044b\u0434\u0430\u044e\u0442\u0441\u044f 10 \u0437\u0430\u0434\u0430\u043d\u0438\u0439, \u0430 \u043f\u0435\u0440\u0435\u0434 \u043e\u043b\u0438\u043c\u043f\u0438\u0430\u0434\u043e\u0439 \u0431\u0443\u0434\u0435\u0442 \u0440\u0430\u043d\u0434\u043e\u043c\u043d\u043e \u0432\u044b\u0431\u0440\u0430\u043d\u043e \u043e\u0434\u043d\u043e \u0437\u0430\u0434\u0430\u043d\u0438\u0435 \u0438 \u0440\u043e\u0437\u0434\u0430\u043d\u043e \u0443\u0447\u0430\u0441\u0442\u043d\u0438\u043a\u0430\u043c. \u042f \u0436\u0438\u0432\u0443 \u043d\u0430 \u042e\u0433\u0435 \u0423\u043a\u0440\u0430\u0438\u043d\u044b, \u0430 \u0423\u043a\u0440\u0430\u0438\u043d\u0430 \u2013 \u0441\u0442\u0440\u0430\u043d\u0430 \u0441\u043f\u0435\u0446\u0438\u0444\u0438\u0447\u0435\u0441\u043a\u0430\u044f, \u0434\u0430\u0436\u0435 \u0432 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0438. \u041f\u0440\u0438 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0438 \u0437\u0430\u0434\u0430\u043d\u0438\u044f \u043d\u0443\u0436\u043d\u043e \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 Delphi\/C++\/C# (\u043e\u0434\u0438\u043d \u0438\u0437 \u043d\u0438\u0445), \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u043f\u0440\u0438\u044f\u0442\u043d\u044b\u0439 \u0438 \u0443\u0434\u043e\u0431\u043d\u044b\u0439 \u0438\u043d\u0442\u0435\u0440\u0444\u0435\u0439\u0441 (\u043a\u0440\u0430\u0441\u0438\u0432\u043e, \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0442\u0438\u0432\u043d\u043e, \u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u0434\u043e\u043b\u0436\u043d\u0430 \u043f\u0440\u0438\u0441\u0443\u0442\u0441\u0442\u0432\u043e\u0432\u0430\u0442\u044c \u0430\u0432\u0442\u043e\u043e\u0447\u0438\u0441\u0442\u043a\u0430, \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043a \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u043c\u0443 \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u043e\u043c\u0443 \u043f\u043e\u043b\u044e \u043f\u0440\u0438 \u043d\u0430\u0436\u0430\u0442\u0438\u0438 \u043d\u0430 Enter \u0438 \u0442.\u0434.), \u043f\u0435\u0440\u0435\u043f\u0438\u0441\u0430\u0442\u044c \u043a\u043e\u0434 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u043d\u0430 \u043b\u0438\u0441\u0442\u0438\u043a \u0438 \u043d\u0430\u0440\u0438\u0441\u043e\u0432\u0430\u0442\u044c \u0431\u043b\u043e\u043a-\u0441\u0445\u0435\u043c\u0443 (!) \u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435. \u0414\u0430-\u0434\u0430, \u0431\u043b\u043e\u043a \u0441\u0445\u0435\u043c\u0443 \u043a \u041e\u041e\u041f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435.<br \/>  \u041b\u0430\u0434\u043d\u043e, \u0441\u0443\u0442\u044c \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u043f\u043e\u0441\u0442\u0430 \u043d\u0435 \u0432 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0438 \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043d\u0438\u0438 \u0432 \u0423\u043a\u0440\u0430\u0438\u043d\u0435. \u042f \u0445\u043e\u0447\u0443 \u043f\u0440\u0438\u0432\u0435\u0441\u0442\u0438 \u043a\u043e\u0434 \u0441\u0432\u043e\u0438\u0445 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c, \u044f\u0432\u043b\u044f\u044e\u0449\u0438\u0445\u0441\u044f \u0440\u0435\u0448\u0435\u043d\u0438\u0435\u043c \u0437\u0430\u0434\u0430\u043d\u0438\u0439. \u0414\u043b\u044f \u0447\u0435\u0433\u043e \u044f \u044d\u0442\u043e \u0434\u0435\u043b\u0430\u044e? \u041c\u043d\u0435 \u0441 \u043e\u0434\u043d\u043e\u0433\u0440\u0443\u043f\u043f\u043d\u0438\u043a\u043e\u043c \u043f\u0440\u0438\u0448\u043b\u043e\u0441\u044c \u043e\u0447\u0435\u043d\u044c \u043c\u043d\u043e\u0433\u043e \u043f\u0435\u0440\u0435\u0440\u044b\u0442\u044c \u0432 \u043d\u0435\u0442\u0435, \u043f\u043e\u0441\u043f\u0440\u0430\u0448\u0438\u0432\u0430\u0442\u044c \u043d\u0430 \u0444\u043e\u0440\u0443\u043c\u0430\u0445 \u0438 \u043c\u0443\u0447\u0430\u0442\u044c \u0437\u043d\u0430\u043a\u043e\u043c\u044b\u0445 \u041f\u0420\u041e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u043e\u0432, \u0447\u0442\u043e\u0431\u044b \u0440\u0435\u0448\u0438\u0442\u044c \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0437\u0430\u0434\u0430\u043d\u0438\u044f, \u0442\u0430\u043a \u043a\u0430\u043a \u043e\u0442\u0432\u0435\u0442\u0430 \u043d\u0430 \u043f\u043e\u0432\u0435\u0440\u0445\u043d\u043e\u0441\u0442\u0438 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442\u0430 \u043d\u0435\u0442.<br \/>  <a name=\"habracut\"><\/a><br \/>  \u041d\u0435 \u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0435\u0441\u044c \u043a\u043e \u043c\u043d\u0435 \u0441\u0442\u0440\u043e\u0433\u043e. \u042f \u043e\u0447\u0435\u043d\u044c \u043b\u044e\u0431\u043b\u044e \u044f\u0437\u044b\u043a Java, \u0430 Delphi, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043c\u044b \u00ab\u0438\u0437\u0443\u0447\u0430\u043b\u0438\u00bb \u0431\u043e\u043b\u0435\u0435 \u0433\u043e\u0434\u0430 \u043d\u0430\u0437\u0430\u0434, \u044f \u0437\u0430\u0431\u044b\u043b \u0441\u043e\u0432\u0441\u0435\u043c \u0438 \u0447\u0443\u0442\u044c \u043b\u0438 \u043d\u0435 \u0438\u0437\u0443\u0447\u0430\u043b \u0441 \u043d\u0443\u043b\u044f.<br \/>  \u042f \u0431\u0443\u0434\u0443 \u043f\u0440\u0438\u0432\u043e\u0434\u0438\u0442\u044c \u0437\u0430\u0434\u0430\u043d\u0438\u044f \u043d\u0430 \u0443\u043a\u0440\u0430\u0438\u043d\u0441\u043a\u043e\u043c, \u043f\u0435\u0440\u0435\u0432\u043e\u0434\u0438\u0442\u044c \u043d\u0430 \u0440\u0443\u0441\u0441\u043a\u0438\u0439 (\u0431\u0443\u0434\u0443\u0442 \u043d\u0435\u0442\u043e\u0447\u043d\u043e\u0441\u0442\u0438 \u2013 \u043f\u0438\u0448\u0438\u0442\u0435, \u0438\u0441\u043f\u0440\u0430\u0432\u043b\u044e), \u043f\u0440\u0438\u0432\u043e\u0434\u0438\u0442\u044c \u043a\u043e\u0434 \u0438 \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u0435\u0433\u043e \u043e\u0431\u044a\u044f\u0441\u043d\u044f\u0442\u044c. \u0422\u0430\u043a\u0436\u0435 \u0431\u0443\u0434\u0435\u0442 \u0441\u043a\u0440\u0438\u043d\u0448\u043e\u0442 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b, \u043f\u0440\u0430\u0432\u0434\u0430, \u0441\u0434\u0435\u043b\u0430\u043d\u043d\u043e\u0439 \u0432 RAD Studio XE3. \u0414\u0430\u043d\u043d\u044b\u0439 \u043f\u043e\u0441\u0442 \u043d\u0435 \u0431\u043e\u043b\u0435\u0435 \u0447\u0435\u043c \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u043e\u0439 help. <\/p>\n<h5>\u0417\u0430\u0434\u0430\u043d\u0438\u0435 1<\/h5>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0417\u0430\u0434\u0430\u043d\u0438\u0435<\/b><\/p>\n<div class=\"spoiler_text\">\n<blockquote><p>\u0421\u043a\u043b\u0430\u0441\u0442\u0438 \u043d\u0430 \u043c\u043e\u0432\u0456 C++ \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f C++Builder, \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 C# \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Visual C# Express \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443 \u00ab\u0421\u0442\u0443\u043f\u0435\u043d\u0456\u00bb, \u044f\u043a\u0430 \u043e\u0431\u0447\u0438\u0441\u043b\u044e\u0454 \u0437\u0430\u043b\u0438\u0448\u043e\u043a \u0432\u0456\u0434 \u0446\u0456\u043b\u043e\u0447\u0438\u0441\u0435\u043b\u044c\u043d\u043e\u0433\u043e \u0434\u0456\u043b\u0435\u043d\u043d\u044f \u0447\u0438\u0441\u043b\u0430 mn \u043d\u0430 d. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u0430 \u043c\u0430\u0454 \u043e\u0442\u0440\u0438\u043c\u0443\u0432\u0430\u0442\u0438 \u0432\u0456\u0434 \u043a\u043e\u0440\u0438\u0441\u0442\u0443\u0432\u0430\u0447\u0430 \u0447\u0438\u0441\u043b\u0430 m, n, d \u0437 \u043f\u043e\u043b\u0456\u0432 \u0432\u0432\u043e\u0434\u0443 \u0442\u0430 \u0432\u0438\u0432\u043e\u0434\u0438\u0442\u0438 \u0437\u0430\u043b\u0438\u0448\u043e\u043a \u0432 \u043f\u043e\u043b\u0435 \u0432\u0438\u0432\u043e\u0434\u0443. \u041e\u0431\u043c\u0435\u0436\u0435\u043d\u043d\u044f: m&lt;30000, n&lt;30000, d&lt;120.<\/p><\/blockquote>\n<p>  <\/p>\n<blockquote><p>\u0421\u043e\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C + + \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f C + + Builder, \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C # \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Visual C # Express \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u00ab\u0421\u0442\u0443\u043f\u0435\u043d\u0438\u00bb, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0435\u0442 \u043e\u0441\u0442\u0430\u0442\u043e\u043a \u043e\u0442 \u0446\u0435\u043b\u043e\u0447\u0438\u0441\u043b\u0435\u043d\u043d\u043e\u0433\u043e \u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0447\u0438\u0441\u043b\u0430 mn \u043d\u0430 d. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0434\u043e\u043b\u0436\u043d\u0430 \u043f\u043e\u043b\u0443\u0447\u0430\u0442\u044c \u043e\u0442 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f \u0447\u0438\u0441\u043b\u0430 m, n, d \u0441 \u043f\u043e\u043b\u0435\u0439 \u0432\u0432\u043e\u0434\u0430 \u0438 \u0432\u044b\u0432\u043e\u0434\u0438\u0442\u044c \u043e\u0441\u0442\u0430\u0442\u043e\u043a \u0432 \u043f\u043e\u043b\u0435 \u0432\u044b\u0432\u043e\u0434\u0430. \u041e\u0433\u0440\u0430\u043d\u0438\u0447\u0435\u043d\u0438\u044f: m &lt;30000, n &lt;30000, d &lt;120.<\/p><\/blockquote>\n<\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u041a\u043e\u0434<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"delphi\">procedure TForm2.Button1Click(Sender: TObject); var   m,n,d: integer;   mCode,nCode,dCode: integer;   i,buffer:integer; begin   \/\/ \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e\u0441\u0442\u044c \u0432\u0432\u043e\u0434\u0438\u043c\u044b\u0445 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445   val(mEdit.Text,m,mCode);   val(nEdit.Text,n,nCode);   val(dEdit.Text,d,dCode);   if (mCode&lt;&gt;0) OR (nCode&lt;&gt;0) OR (dCode&lt;&gt;0) then   begin     ResLabel.Caption := '\u0412 \u043e\u0434\u043d\u043e\u043c \u0438\u0437 \u043f\u043e\u043b\u0435\u0439 \u0432\u044b \u0432\u0432\u0435\u043b\u0438 \u043d\u0435\u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435! \u041f\u043e\u0436\u0430\u043b\u0443\u0439\u0441\u0442\u0430, \u043f\u0440\u043e\u0432\u0435\u0440\u0442\u0435 \u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e\u0441\u0442\u044c \u0432\u0432\u043e\u0434\u0438\u043c\u044b\u0445 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439!';     exit;   end;   \/\/ \u0412\u043e\u0437\u0432\u043e\u0434\u0438\u043c \u0432 \u0441\u0442\u0435\u043f\u0435\u043d\u044c   buffer := m;   for i := 2 to n do     buffer := buffer * m;   \/\/ \u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442   ResLAbel.Caption := '\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0440\u0430\u0432\u0435\u043d ' + IntToStr(buffer div d); end; <\/code><\/pre>\n<p>  <\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0421\u043a\u0440\u0438\u043d\u0448\u043e\u0442\u044b<\/b><\/p>\n<div class=\"spoiler_text\"><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/4b5\/d7f\/f1b\/4b5d7ff1b9ffbd8f909a64721d7d6b74.jpg\"\/><\/div>\n<\/div>\n<p>  \u0425\u043e\u0447\u0443 \u043e\u0442\u043c\u0435\u0442\u0438\u0442\u044c, \u0447\u0442\u043e Dephi \u043d\u0430\u043c \u043f\u0440\u0435\u0434\u043e\u0441\u0442\u0430\u0432\u043b\u044f\u043b\u0438 5-\u043e\u0439 \u0432\u0435\u0440\u0441\u0438\u0438, \u0430 C++Builder 6-\u043e\u0439. \u0422\u0430\u043a\u0436\u0435 \u0441\u0442\u043e\u0438\u0442 \u043e\u0431\u0440\u0430\u0442\u0438\u0442\u044c \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435 \u043d\u0430 \u043d\u0435\u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e\u0441\u0442\u044c \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0435\u043d\u0438\u0439. \u041f\u043e\u0434\u0441\u0447\u0438\u0442\u0430\u0442\u044c \u0447\u0438\u0441\u043b\u043e 30000 \u0432 30000 \u0441\u0442\u0435\u043f\u0435\u043d\u0438 \u2013 \u044d\u0442\u043e \u0431\u0440\u0435\u0434. \u041e\u0440\u0433\u0430\u043d\u0438\u0437\u0430\u0442\u043e\u0440\u044b \u0443\u0436\u0435 \u043d\u0435 \u043f\u0435\u0440\u0432\u044b\u0439 \u0433\u043e\u0434 \u0432\u044b\u0441\u0442\u0430\u0432\u043b\u044f\u044e\u0442 \u044d\u0442\u0443 \u0437\u0430\u0434\u0430\u0447\u0443, \u043e\u0447\u0435\u043d\u044c \u043c\u043d\u043e\u0433\u0438\u0435 \u0434\u0435\u043b\u0430\u043b\u0438 \u0438\u043c \u0437\u0430\u043c\u0435\u0447\u0430\u043d\u0438\u0435, \u0447\u0442\u043e \u0437\u0430\u0434\u0430\u043d\u0438\u0435 \u043d\u0435\u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e, \u043d\u043e \u043e\u043d\u0438 \u043f\u0440\u043e\u0438\u0433\u043d\u043e\u0440\u0438\u0440\u043e\u0432\u0430\u043b\u0438.<br \/>  \u0421\u043e\u0433\u043b\u0430\u0441\u0438\u0442\u0435\u0441\u044c, \u0437\u0430\u0434\u0430\u043d\u0438\u0435 \u043f\u043b\u0435\u0432\u043e\u0435. \u0415\u0434\u0438\u043d\u0441\u0442\u0432\u0435\u043d\u043d\u043e\u0435, \u043f\u0440\u0438 \u0432\u0432\u043e\u0434\u0435 \u043c\u0430\u043a\u0441\u0438\u043c\u0430\u043b\u044c\u043d\u044b\u0445 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u043e\u043d\u0430 \u0431\u0443\u0434\u0435\u0442 \u0432\u044b\u0434\u0430\u0432\u0430\u0442\u044c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u043d\u043e\u043b\u044c. \u041c\u043e\u0436\u043d\u043e \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0432\u043e\u0437\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u0441\u0442\u0435\u043f\u0435\u043d\u0435\u0439 \u0442\u0430\u043a\u0438\u0445 \u0447\u0438\u0441\u0435\u043b, \u043d\u043e \u044d\u0442\u043e \u0438 \u0434\u043e\u043b\u0433\u043e, \u0438 \u0431\u0435\u0441\u0441\u043c\u044b\u0441\u043b\u0435\u043d\u043d\u043e \u0434\u043b\u044f \u0434\u0430\u043d\u043d\u044b\u0445 \u0446\u0435\u043b\u0435\u0439.<\/p>\n<h5>\u0417\u0430\u0434\u0430\u043d\u0438\u0435 2<\/h5>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0417\u0430\u0434\u0430\u043d\u0438\u0435<\/b><\/p>\n<div class=\"spoiler_text\">\n<blockquote><p>\u0421\u043a\u043b\u0430\u0441\u0442\u0438 \u043d\u0430 \u043c\u043e\u0432\u0456 C++ \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f C++Builder, \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 C# \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Visual C# Express \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443 \u00ab\u041a\u043e\u0440\u0430\u0431\u0435\u043b\u044c\u00bb, \u044f\u043a\u0430 \u043c\u0430\u0454 \u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0443\u0432\u0430\u0442\u0438 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0438 \u043c\u0443\u043b\u044c\u0442\u0438\u043f\u043b\u0456\u043a\u0430\u0446\u0456\u0457 (\u043f\u0435\u0440\u0435\u0441\u0443\u0432\u0430\u043d\u043d\u044f \u043e\u0431\u2019\u0454\u043a\u0442\u0443 \u043d\u0430 \u0444\u043e\u043d\u0456 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0438). \u0417\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u043d\u044f \u0444\u043e\u043d\u0443 \u0442\u0430 \u043e\u0431\u2019\u0454\u043a\u0442\u0443 \u043c\u0430\u044e\u0442\u044c \u0437\u0430\u0432\u0430\u043d\u0442\u0430\u0436\u0443\u0432\u0430\u0442\u0438\u0441\u044f \u0437 \u0444\u0430\u0439\u043b\u0443.<\/p><\/blockquote>\n<p>  <\/p>\n<blockquote><p>\u0421\u043e\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C + + \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f C + + Builder, \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C # \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Visual C # Express \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u00ab\u041a\u043e\u0440\u0430\u0431\u043b\u044c\u00bb, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0434\u043e\u043b\u0436\u043d\u0430 \u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u044b \u043c\u0443\u043b\u044c\u0442\u0438\u043f\u043b\u0438\u043a\u0430\u0446\u0438\u0438 (\u043f\u0435\u0440\u0435\u0434\u0432\u0438\u0436\u0435\u043d\u0438\u0435 \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u043d\u0430 \u0444\u043e\u043d\u0435 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0438). \u0418\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0444\u043e\u043d\u0430 \u0438 \u043e\u0431\u044a\u0435\u043a\u0442\u0430 \u0434\u043e\u043b\u0436\u043d\u044b \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0442\u044c\u0441\u044f \u0438\u0437 \u0444\u0430\u0439\u043b\u0430.  <\/p><\/blockquote>\n<\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u041a\u043e\u0434<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"delphi\">\/\/\u0417\u0430\u0433\u0440\u0443\u0437\u043a\u0430 \u0444\u043e\u043d\u0430 procedure TForm1.Button1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then begin   Background.Picture.LoadFromFile(OpenPictureDialog1.FileName);   Background2.Picture.LoadFromFile(OpenPictureDialog1.FileName); end else begin   ShowMessage('Error!!! You dont choose picture!'); end; end; \/\/\u0417\u0430\u0433\u0440\u0443\u0437\u043a\u0430 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u043a\u043e\u0440\u0430\u0431\u043b\u0438\u043a\u0430 procedure TForm1.Button2Click(Sender: TObject); begin if OpenPictureDialog1.Execute then begin   Ship.Picture.LoadFromFile(OpenPictureDialog1.FileName); end else begin   ShowMessage('Error!!! You dont choose picture!'); end; end;  \/\/ \u0421\u0442\u0430\u0440\u0442\u0443\u0435\u043c procedure TForm1.Button3Click(Sender: TObject); begin Panel1.Hide; end; \/\/\u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430, \u0437\u0430\u0433\u0440\u0443\u0436\u0435\u043d\u044b \u043b\u0438 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0438 procedure TForm1.Button4Click(Sender: TObject); begin Label13.Caption := ''; if Background.Picture.Graphic=nil then Label13.Caption := '\u041d\u0435 \u0437\u0430\u0433\u0440\u0443\u0436\u0435\u043d \u0444\u043e\u043d! '; if Ship.Picture.Graphic=nil then Label13.Caption := Label13.Caption + '\u041d\u0435 \u0437\u0430\u0433\u0440\u0443\u0436\u0435\u043d \u043a\u043e\u0440\u0430\u0431\u043b\u0438\u043a!'; if NOT ((Background.Picture.Graphic=nil) OR (Ship.Picture.Graphic=nil)) then Button3.Enabled := true; end; \/\/\u0412\u044b\u0445\u043e\u0434 procedure TForm1.Button5Click(Sender: TObject); begin   Application.Terminate; end; \/\/\u0418\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044f \u043f\u0440\u0438 \u0437\u0430\u043f\u0443\u0441\u043a\u0435  procedure TForm1.FormCreate(Sender: TObject); begin Timer.Enabled := false; distance := 0; Self.DoubleBuffered := true; Background2.Left := Background.Left + Background.Width; end; \/\/ \u0423\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u0435 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin   if Key = #27 then   begin     speed:=0;     Button3.Caption :='\u041f\u0440\u043e\u0434\u043e\u043b\u0436\u0438\u0442\u044c';     Panel1.Show;   end;    if Key = 'e'  then  if (speed + 5) &lt; 30 then speed := speed + 5;   if Key = 'q'  then  if (speed - 5) &gt;= 0 then speed := speed - 5;   if Key = 'w' then  if (Ship.Top - 30) &gt; 15 then Ship.Top := Ship.Top - 30;   if Key = 's' then  if (Ship.Top + 30) &lt; ((Background.Height - Ship.Height) - 15 ) then Ship.Top := Ship.Top + 30;   if Key = 'a' then  if (Ship.Left - 5) &gt; 5 then  Ship.Left := Ship.Left - 5;   if Key = 'd' then  if (Ship.Left + 5) &lt; Form1.Background.Width then  Ship.Left := Ship.Left + 5; end; \/\/\u0422\u0430\u0439\u043c\u0435\u0440, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0434\u0432\u0438\u0433\u0430\u0435\u0442 \u0444\u043e\u043d\u043e\u0432\u0443\u044e \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0443 procedure TForm1.TimerTimer(Sender: TObject); begin   Background.Left :=   Background.Left - speed;   Background2.Left := Background2.Left - speed;   distance := distance + abs(speed);   SpeedLabel.Caption := FloatToStr(speed\/5);   DistanceLabel.Caption := IntToStr(distance\/5);   if Background.Left &lt; -1201 then Background.Left := Background2.Left + 1200;   if Background2.Left &lt; -1201 then Background2.Left := BAckground.Left + 1200; end; <\/code><\/pre>\n<p>  <\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0421\u043a\u0440\u0438\u043d\u0448\u043e\u0442\u044b<\/b><\/p>\n<div class=\"spoiler_text\"><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/5de\/57c\/092\/5de57c092a1616fc0a33af3903f76750.jpg\"\/><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/693\/312\/726\/6933127262d1876dc3dae9f73d7ecfda.jpg\"\/><\/div>\n<\/div>\n<p>  \u0417\u0430\u0434\u0430\u043d\u0438\u0435 \u043e\u0447\u0435\u043d\u044c \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e\u0435, \u0440\u0430\u0437\u0432\u0438\u0432\u0430\u0442\u044c \u0435\u0433\u043e \u043c\u043e\u0436\u043d\u043e \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0430\u043c\u0438 \u0441\u043f\u043e\u0441\u043e\u0431\u043e\u0432. \u0423\u0447\u0438\u0442\u044b\u0432\u0430\u044f, \u0447\u0442\u043e \u0432\u0440\u0435\u043c\u044f \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0435\u043d\u043e, \u0430 \u043d\u0430\u0434\u043e \u043f\u0435\u0440\u0435\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c \u043a\u043e\u0434 \u0438 \u0440\u0438\u0441\u043e\u0432\u0430\u0442\u044c \u0431\u043b\u043e\u043a \u0441\u0445\u0435\u043c\u0443, \u044f \u0441\u0434\u0435\u043b\u0430\u043b \u0435\u0435 \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u043e\u0439. <\/p>\n<h5>\u0417\u0430\u0434\u0430\u043d\u0438\u0435 3<\/h5>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0417\u0430\u0434\u0430\u043d\u0438\u0435<\/b><\/p>\n<div class=\"spoiler_text\">\n<blockquote><p>\u0421\u043a\u043b\u0430\u0441\u0442\u0438 \u043d\u0430 \u043c\u043e\u0432\u0456 C++ \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f C++Builder, \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 C# \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Visual C# Express \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443 \u00ab\u0412\u0433\u0430\u0434\u0430\u0439 \u0447\u0438\u0441\u043b\u043e\u00bb. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u0430 \u0432\u0438\u043f\u0430\u0434\u043a\u043e\u0432\u0438\u043c \u0447\u0438\u043d\u043e\u043c \u043e\u0431\u0438\u0440\u0430\u0454 \u0446\u0456\u043b\u0435 \u0447\u0438\u0441\u043b\u043e \u0432 \u0434\u0435\u044f\u043a\u043e\u043c\u0443 \u0434\u0456\u0430\u043f\u0430\u0437\u043e\u043d\u0456, \u0430 \u043a\u043e\u0440\u0438\u0441\u0442\u0443\u0432\u0430\u0447 \u043d\u0430\u043c\u0430\u0433\u0430\u0454\u0442\u044c\u0441\u044f \u0432\u0433\u0430\u0434\u0430\u0442\u0438 \u0439\u043e\u0433\u043e \u0442\u0430 \u0432\u0432\u043e\u0434\u0438\u0442\u044c \u0441\u0432\u043e\u0454 \u0447\u0438\u0441\u043b\u043e \u0437 \u043a\u043b\u0430\u0432\u0456\u0430\u0442\u0443\u0440\u0438. \u042f\u043a\u0449\u043e \u0447\u0438\u0441\u043b\u043e \u0432\u0433\u0430\u0434\u0430\u043d\u0435, \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0430 \u0432\u0438\u0432\u043e\u0434\u0438\u0442\u044c \u043f\u043e\u0432\u0456\u0434\u043e\u043c\u043b\u0435\u043d\u043d\u044f \u043f\u0440\u043e \u0446\u0435 \u0456 \u0437\u0430\u0432\u0435\u0440\u0448\u0443\u0454 \u0441\u0432\u043e\u044e \u0440\u043e\u0431\u043e\u0442\u0443. \u0406\u043d\u0430\u043a\u0448\u0435 \u0441\u043f\u0440\u043e\u0431\u0430 \u0432\u0433\u0430\u0434\u0430\u0442\u0438 \u0447\u0438\u0441\u043b\u043e \u043f\u043e\u0432\u0442\u043e\u0440\u044e\u0454\u0442\u044c\u0441\u044f \u0449\u0435 2 \u0440\u0430\u0437\u0438. \u041f\u0440\u0438 \u0446\u044c\u043e\u043c\u0443 \u043a\u043e\u0440\u0438\u0441\u0442\u0443\u0432\u0430\u0447\u0443 \u0432\u0438\u0434\u0430\u0454\u0442\u044c\u0441\u044f \u043f\u043e\u0432\u0456\u0434\u043e\u043c\u043b\u0435\u043d\u043d\u044f: \u201c\u0437\u0430\u0434\u0430\u043d\u0435 \u0447\u0438\u0441\u043b\u043e \u0431\u0456\u043b\u044c\u0448\u0435 \u0447\u0438 \u043c\u0435\u043d\u0448\u0435 \u0432\u0432\u0435\u0434\u0435\u043d\u043e\u0433\u043e\u201d.<\/p><\/blockquote>\n<p>  <\/p>\n<blockquote><p>\u0421\u043e\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C + + \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f C + + Builder, \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C # \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Visual C # Express \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u00ab\u0423\u0433\u0430\u0434\u0430\u0439 \u0447\u0438\u0441\u043b\u043e\u00bb. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0441\u043b\u0443\u0447\u0430\u0439\u043d\u044b\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u0432\u044b\u0431\u0438\u0440\u0430\u0435\u0442 \u0446\u0435\u043b\u043e\u0435 \u0447\u0438\u0441\u043b\u043e \u0432 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u043e\u043c \u0434\u0438\u0430\u043f\u0430\u0437\u043e\u043d\u0435, \u0430 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c \u043f\u044b\u0442\u0430\u0435\u0442\u0441\u044f \u0443\u0433\u0430\u0434\u0430\u0442\u044c \u0435\u0433\u043e \u0438 \u0432\u0432\u043e\u0434\u0438\u0442 \u0441\u0432\u043e\u0435 \u0447\u0438\u0441\u043b\u043e \u0441 \u043a\u043b\u0430\u0432\u0438\u0430\u0442\u0443\u0440\u044b. \u0415\u0441\u043b\u0438 \u0447\u0438\u0441\u043b\u043e \u0443\u0433\u0430\u0434\u0430\u043d\u043e, \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0432\u044b\u0432\u043e\u0434\u0438\u0442 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u043e\u0431 \u044d\u0442\u043e\u043c \u0438 \u0437\u0430\u0432\u0435\u0440\u0448\u0430\u0435\u0442 \u0441\u0432\u043e\u044e \u0440\u0430\u0431\u043e\u0442\u0443. \u0418\u043d\u0430\u0447\u0435 \u043f\u043e\u043f\u044b\u0442\u043a\u0430 \u0443\u0433\u0430\u0434\u0430\u0442\u044c \u0447\u0438\u0441\u043b\u043e \u043f\u043e\u0432\u0442\u043e\u0440\u044f\u0435\u0442\u0441\u044f \u0435\u0449\u0435 2 \u0440\u0430\u0437\u0430. \u041f\u0440\u0438 \u044d\u0442\u043e\u043c \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044e \u0432\u044b\u0434\u0430\u0435\u0442\u0441\u044f \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435: \u00ab\u0437\u0430\u0434\u0430\u043d\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e \u0431\u043e\u043b\u044c\u0448\u0435 \u0438\u043b\u0438 \u043c\u0435\u043d\u044c\u0448\u0435 \u0432\u0432\u0435\u0434\u0435\u043d\u043d\u043e\u0433\u043e\u00bb.<\/p><\/blockquote>\n<\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u041a\u043e\u0434<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"delphi\">procedure TForm2.Button1Click(Sender: TObject); var   m,mCode: integer; begin \/\/ \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e\u0441\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f   val(Edit1.Text, m, mCode);   if mCode &lt;&gt;0 then     ResLabel.Caption := '\u041d\u0435\u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e \u0432\u0432\u0435\u0434\u0435\u043d\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435!  \u041f\u0440\u043e\u0432\u0435\u0440\u044c\u0442\u0435 \u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e\u0441\u0442\u044c \u0432\u0432\u0435\u0434\u0435\u043d\u043d\u043e\u0433\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f!'   else   \/\/ \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u043e\u0442\u0432\u0435\u0442   if m = answer then   begin     ResLabel.Caption := '\u0423\u0440\u0430! \u0412\u044b \u0443\u0433\u0430\u0434\u0430\u043b\u0438!!! \u041f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u0437\u0430\u043a\u0440\u043e\u0435\u0442\u044c\u0441\u044f \u0447\u0435\u0440\u0435\u0437 5 \u0441\u0435\u043a.';     timer.Enabled := true   end   else   if attempt&lt;&gt;1 then \/\/ \u0435\u0441\u043b\u0438 \u043f\u043e\u043f\u044b\u0442\u043a\u0438 \u0435\u0449\u0435 \u0435\u0441\u0442\u044c   if m &gt; answer then   begin     dec(attempt);     ResLabel.Caption := '\u0423\u0432\u044b! \u0412\u0432\u0435\u0434\u0435\u043d\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0431\u043e\u043b\u044c\u0448\u0435 \u043c\u043e\u0435\u0433\u043e \u0447\u0438\u0441\u043b\u0430. \u0423 \u0442\u0435\u0431\u044f \u0435\u0449\u0435:'+ IntToStr(attempt) +' \u043f\u043e\u043f\u044b\u0442\u043e\u043a'   end   else   begin     dec(attempt);     ResLabel.Caption := '\u0423\u0432\u044b! \u0412\u0432\u0435\u0434\u0435\u043d\u043d\u043e\u0435 \u0442\u043e\u0431\u043e\u0439 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043c\u0435\u043d\u044c\u0448\u0435 \u043c\u043e\u0435\u0433\u043e \u0447\u0438\u0441\u043b\u0430. \u0423 \u0442\u0435\u0431\u044f \u0435\u0449\u0435:'+ IntToStr(attempt) +' \u043f\u043e\u043f\u044b\u0442\u043e\u043a';   end   else   begin  \/\/\u043f\u043e\u043f\u044b\u0442\u043a\u0438 \u0437\u0430\u043a\u043e\u043d\u0447\u0438\u043b\u0438\u0441\u044c     ResLabel.Caption := '\u0423\u0432\u044b! \u041f\u043e\u043f\u044b\u0442\u043a\u0438 \u0437\u0430\u043a\u043e\u043d\u0447\u0438\u043b\u0438\u0441\u044c! \u041f\u043e\u043a\u0430! (\u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u0437\u0430\u043a\u0440\u043e\u0435\u0442\u044c\u0441\u044f \u0447\u0435\u0440\u0435\u0437 5 \u0441\u0435\u043a.)';     Timer.Enabled := true;   end; end; <\/code><\/pre>\n<p>  <\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0421\u043a\u0440\u0438\u043d\u0448\u043e\u0442\u044b<\/b><\/p>\n<div class=\"spoiler_text\"><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/615\/beb\/046\/615beb046fc1006d9c51ac8d3d8ebce4.jpg\"\/><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/4a0\/83a\/c6b\/4a083ac6bc4ddeae7869275dd0afc9b4.jpg\"\/><\/div>\n<\/div>\n<p>  \u0422\u0430\u043a\u0436\u0435 \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u0430\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430, \u043a\u043e\u043c\u043c\u0435\u043d\u0442\u0430\u0440\u0438\u0438 \u0432\u0441\u0435 \u043e\u0431\u044a\u044f\u0441\u043d\u044f\u044e\u0442. \u041d\u0435 \u0431\u0443\u0434\u0435\u043c \u043d\u0430 \u043d\u0435\u0439 \u043e\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0442\u044c\u0441\u044f.<\/p>\n<h5>\u0417\u0430\u0434\u0430\u043d\u0438\u0435 4<\/h5>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0417\u0430\u0434\u0430\u043d\u0438\u0435<\/b><\/p>\n<div class=\"spoiler_text\">\n<blockquote><p>\u0421\u043a\u043b\u0430\u0441\u0442\u0438 \u043d\u0430 \u043c\u043e\u0432\u0456 C++ \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f C++Builder, \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 C# \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Visual C# Express \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443 \u00ab\u0410\u0443\u0442\u0435\u043d\u0442\u0438\u0444\u0456\u043a\u0430\u0446\u0456\u044f\u00bb, \u044f\u043a\u0430 \u043c\u0430\u0454 \u0441\u0442\u0432\u043e\u0440\u044e\u0432\u0430\u0442\u0438 \u0432\u0456\u043a\u043d\u043e \u043f\u0435\u0440\u0435\u0432\u0456\u0440\u043a\u0438 \u043f\u0430\u0440\u043e\u043b\u044e \u0442\u0430 \u043b\u043e\u0433\u0456\u043d\u0443 \u043a\u043e\u0440\u0438\u0441\u0442\u0443\u0432\u0430\u0447\u0456\u0432 \u0442\u0430 \u0432\u0438\u0432\u043e\u0434\u0438\u0442\u0438 \u0432\u0456\u0434\u043f\u043e\u0432\u0456\u0434\u043d\u0435 \u043f\u043e\u0432\u0456\u0434\u043e\u043c\u043b\u0435\u043d\u043d\u044f \u043f\u0456\u0434\u0442\u0432\u0435\u0440\u0434\u0436\u0435\u043d\u043d\u044f \u0430\u0431\u043e \u043f\u043e\u043c\u0438\u043b\u043a\u0438. \u041f\u0435\u0440\u0435\u043b\u0456\u043a \u0456\u0441\u043d\u0443\u044e\u0447\u0438\u0445 \u043a\u043e\u0440\u0438\u0441\u0442\u0443\u0432\u0430\u0447\u0456\u0432 \u0442\u0430 \u0457\u0445 \u043f\u0430\u0440\u043e\u043b\u0456\u0432 \u043c\u0430\u0454 \u0437\u0431\u0435\u0440\u0456\u0433\u0430\u0442\u0438\u0441\u044c \u0443 \u0444\u0430\u0439\u043b\u0456. \u0420\u0435\u0430\u043b\u0456\u0437\u0443\u0432\u0430\u0442\u0438 \u043c\u043e\u0436\u043b\u0438\u0432\u0456\u0441\u0442\u044c \u0434\u043e\u0434\u0430\u0432\u0430\u043d\u043d\u044f \u043d\u043e\u0432\u043e\u0433\u043e \u043a\u043e\u0440\u0438\u0441\u0442\u0443\u0432\u0430\u0447\u0430.<\/p><\/blockquote>\n<p>  <\/p>\n<blockquote><p>\u0421\u043e\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C + + \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f C + + Builder, \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C # \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Visual C # Express \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u00ab\u0410\u0443\u0442\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0446\u0438\u044f\u00bb, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0434\u043e\u043b\u0436\u043d\u0430 \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0442\u044c \u043e\u043a\u043d\u043e \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u043f\u0430\u0440\u043e\u043b\u044f \u0438 \u043b\u043e\u0433\u0438\u043d\u0430 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439 \u0432\u044b\u0432\u043e\u0434\u0438\u0442\u044c \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0435\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u043f\u043e\u0434\u0442\u0432\u0435\u0440\u0436\u0434\u0435\u043d\u0438\u044f \u0438\u043b\u0438 \u043e\u0448\u0438\u0431\u043a\u0438. \u041f\u0435\u0440\u0435\u0447\u0435\u043d\u044c \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439 \u0438 \u0438\u0445 \u043f\u0430\u0440\u043e\u043b\u0435\u0439 \u0434\u043e\u043b\u0436\u043d\u0430 \u0445\u0440\u0430\u043d\u0438\u0442\u044c\u0441\u044f \u0432 \u0444\u0430\u0439\u043b\u0435. \u0420\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u043d\u043e\u0432\u043e\u0433\u043e \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f.  <\/p><\/blockquote>\n<\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u041a\u043e\u0434<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"delphi\">\/\/\u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430, \u0435\u0441\u043b\u0438 \u043b\u0438 \u0442\u0430\u043a\u043e\u0439 \u043b\u043e\u0433\u0438\u043d\/\u043f\u0430\u0440\u043e\u043b\u044c \u0432 \u0444\u0430\u0439\u043b\u0435 function isCorrect(res: String): boolean; var   tempStr: String;   mfile: TextFile; begin   AssignFile(mfile,'catalog.txt');   Reset(mfile);   while not eof(mfile) do   begin     ReadLn(mfile, tempStr);     if tempStr = res then     begin       isCorrect := true;       closeFile(mfile);       exit;     end;   end;   isCorrect := false;   closeFile(mfile); end; \/\/\u0420\u0435\u0433\u0438\u0441\u0442\u0440\u0430\u0446\u0438\u044f \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f procedure TForm1.Button1Click(Sender: TObject); var   res: String;   mfile: TextFile; begin \/\/ \u0410\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0442\u0430\u043a\u043e\u0439: \u0444\u043e\u0440\u043c\u0438\u0440\u0443\u0435\u0442\u0441\u044f \u0441\u0442\u0440\u043e\u043a\u0430 \u043b\u043e\u0433\u0438\u043d - \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c - \u043f\u0430\u0440\u043e\u043b\u044c \u0438 \u0441\u0432\u0435\u0440\u044f\u0435\u0442\u0441\u044f \u0441\u043e \u0432\u0441\u0435\u043c\u0438 \u0441\u0442\u0440\u043e\u043a\u0430\u043c\u0438 \u0432 \u0444\u0430\u0439\u043b\u0435   res := trim(LoginEdit.Text) + '|' + trim(PasswordEdit.Text);    if isCorrect(res) then   begin     MessageLabel.Font.Color := clRed;     MessageLabel.Caption := 'User already exists';     exit;   end;   AssignFile(mfile,'catalog.txt');   append(mfile);   WriteLn(mfile, res);   closeFile(mfile);   MessageLabel.Font.Color := clLime;   MessageLabel.Caption := 'User created!'; end; \/\/\u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u043b\u043e\u0433\u0438\u043d\u0430\/\u043f\u0430\u0440\u043e\u043b\u044f procedure TForm1.Button2Click(Sender: TObject); var   mfile: TextFile;   res: String;   tempStr: String; begin   res := trim(LoginEdit.Text) + '|' + trim(PasswordEdit.Text);   if isCorrect(res) then   begin     MessageLabel.Font.Color := clLime;     MessageLabel.Caption := 'Enter is successfull!';   end   else   begin     MessageLabel.Font.Color := clRed;     MessageLabel.Caption := 'User or password is invalid!';   end;   LoginEdit.SetFocus; end; <\/code><\/pre>\n<p>  <\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0421\u043a\u0440\u0438\u043d\u0448\u043e\u0442\u044b<\/b><\/p>\n<div class=\"spoiler_text\"><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/61a\/90e\/ede\/61a90eedea7a71c855fae692d3acc113.jpg\"\/><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/646\/85b\/2f6\/64685b2f6317dd671d694ecb912cc4cf.jpg\"\/><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/bb5\/e8e\/8de\/bb5e8e8de1c471c88e23c228cdb1e6de.jpg\"\/><\/div>\n<\/div>\n<p>  \u0417\u0430\u0434\u0430\u043d\u0438\u0435 \u043f\u0440\u043e\u0441\u0442\u043e\u0435, \u043d\u043e \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u00ab\u043a\u0440\u0430\u0441\u0438\u0432\u043e\u00bb \u044f \u0435\u0433\u043e \u043d\u0435 \u0441\u043c\u043e\u0433 (\u043b\u0435\u043d\u044c * \u043b\u0435\u043d\u044c + \u00ab\u043b\u044e\u0431\u043e\u0432\u044c\u00bb \u0432 Delphi). \u0420\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u043b \u043d\u0430\u043e\u0431\u0443\u043c.<br \/>  \u041f\u0440\u0438\u043c\u0435\u0447\u0430\u043d\u0438\u0435: \u043d\u0430 \u0441\u043a\u0440\u0438\u043d\u0448\u043e\u0442\u0430\u0445 \u0437\u0430\u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u044e\u0437\u0435\u0440 \u0441 \u043f\u0443\u0441\u0442\u044b\u043c \u0438\u043c\u0435\u043d\u0435\u043c \u0438 \u043f\u0443\u0441\u0442\u044b\u043c \u043f\u0430\u0440\u043e\u043b\u0435\u043c (:)) <\/p>\n<h5>\u0417\u0430\u0434\u0430\u043d\u0438\u0435 5<\/h5>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0417\u0430\u0434\u0430\u043d\u0438\u0435<\/b><\/p>\n<div class=\"spoiler_text\">\n<blockquote><p>\u0421\u043a\u043b\u0430\u0441\u0442\u0438 \u043d\u0430 \u043c\u043e\u0432\u0456 C++ \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f C++Builder, \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 C# \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Visual C# Express \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443 \u00ab\u0428\u0438\u0444\u0440 \u0425\u0430\u0441\u0435\u0433\u0430\u0432\u0430\u00bb, \u044f\u043a\u0430 \u0432\u0438\u043a\u043e\u043d\u0443\u0454 \u0448\u0438\u0444\u0440\u0443\u0432\u0430\u043d\u043d\u044f \u0442\u0430 \u0434\u0435\u0448\u0438\u0444\u0440\u0443\u0432\u0430\u043d\u043d\u044f \u0437\u0430 \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u043e\u043c \u0425\u0430\u0441\u0435\u0433\u0430\u0432\u0430. \u041f\u0440\u0438 \u0448\u0438\u0444\u0440\u0443\u0432\u0430\u043d\u043d\u0456 \u043a\u043e\u0436\u043d\u043e\u043c\u0443 \u0441\u0438\u043c\u0432\u043e\u043b\u0443 \u043f\u043e\u0447\u0430\u0442\u043a\u043e\u0432\u043e\u0433\u043e \u0432\u0456\u0434\u043a\u0440\u0438\u0442\u043e\u0433\u043e \u043f\u043e\u0432\u0456\u0434\u043e\u043c\u043b\u0435\u043d\u043d\u044f \u043f\u0440\u0438\u0432\u043b\u0430\u0441\u043d\u044e\u0454\u0442\u044c\u0441\u044f \u0439\u043e\u0433\u043e \u043f\u043e\u0440\u044f\u0434\u043a\u043e\u0432\u0438\u0439 \u043d\u043e\u043c\u0435\u0440 \u0432 \u0430\u043b\u0444\u0430\u0432\u0456\u0442\u0456, \u043f\u0456\u0441\u043b\u044f \u0447\u043e\u0433\u043e \u043e\u0431\u0438\u0440\u0430\u0454\u0442\u044c\u0441\u044f \u043a\u043b\u044e\u0447 \u0456 \u0439\u043e\u0433\u043e \u0441\u0438\u043c\u0432\u043e\u043b\u0438 \u043f\u0456\u0434\u043f\u0438\u0441\u0443\u044e\u0442\u044c\u0441\u044f \u043f\u0456\u0434 \u0441\u0438\u043c\u0432\u043e\u043b\u0430\u043c\u0438 \u043f\u043e\u0447\u0430\u0442\u043a\u043e\u0432\u043e\u0433\u043e \u0432\u0456\u0434\u043a\u0440\u0438\u0442\u043e\u0433\u043e \u043f\u043e\u0432\u0456\u0434\u043e\u043c\u043b\u0435\u043d\u043d\u044f \u0437 \u043f\u043e\u0441\u043b\u0456\u0434\u043e\u0432\u043d\u0438\u043c \u043f\u043e\u0432\u0442\u043e\u0440\u044e\u0432\u0430\u043d\u043d\u044f\u043c \u043a\u043b\u044e\u0447\u0443. \u0421\u0438\u043c\u0432\u043e\u043b\u0430\u043c \u043a\u043b\u044e\u0447\u0443 \u0442\u0430\u043a\u043e\u0436 \u043f\u0440\u0438\u0432\u043b\u0430\u0441\u043d\u044e\u044e\u0442\u044c\u0441\u044f \u043f\u043e\u0440\u044f\u0434\u043a\u043e\u0432\u0456 \u043d\u043e\u043c\u0435\u0440\u0438 \u0437\u0430 \u0430\u043b\u0444\u0430\u0432\u0456\u0442\u043e\u043c, \u043f\u0456\u0441\u043b\u044f \u0447\u043e\u0433\u043e \u0432\u043e\u043d\u0438 \u0441\u043a\u043b\u0430\u0434\u0430\u044e\u0442\u044c\u0441\u044f \u0437 \u0432\u0456\u0434\u043f\u043e\u0432\u0456\u0434\u043d\u0438\u043c\u0438 \u0441\u0438\u043c\u0432\u043e\u043b\u0430\u043c\u0438 \u043f\u043e\u0432\u0456\u0434\u043e\u043c\u043b\u0435\u043d\u043d\u044f \u0456 \u043e\u0442\u0440\u0438\u043c\u0430\u043d\u0456 \u043d\u043e\u043c\u0435\u0440\u0438 \u043f\u0435\u0440\u0435\u0432\u043e\u0434\u044f\u0442\u044c\u0441\u044f \u0432 \u0441\u0438\u043c\u0432\u043e\u043b\u0438 \u043f\u043e\u0447\u0430\u0442\u043a\u043e\u0432\u043e\u0433\u043e \u0430\u043b\u0444\u0430\u0432\u0456\u0442\u0443. \u0412\u0456\u0434\u043f\u043e\u0432\u0456\u0434\u043d\u043e, \u043f\u0440\u0438 \u043f\u0435\u0440\u0435\u0432\u0438\u0449\u0435\u043d\u043d\u0456 \u043f\u043e\u0440\u044f\u0434\u043a\u043e\u0432\u0438\u043c \u043d\u043e\u043c\u0435\u0440\u043e\u043c \u0441\u0438\u043c\u0432\u043e\u043b\u0443 \u0434\u043e\u0432\u0436\u0438\u043d\u0438 \u0430\u043b\u0444\u0430\u0432\u0456\u0442\u0443 \u0442\u0440\u0435\u0431\u0430 \u0432\u0456\u0434\u043d\u044f\u0442\u0438 \u0434\u043e\u0432\u0436\u0438\u043d\u0443 \u0430\u043b\u0444\u0430\u0432\u0456\u0442\u0443. \u041f\u0440\u0438 \u0434\u0435\u0448\u0438\u0444\u0440\u0443\u0432\u0430\u043d\u043d\u0456 \u0432\u0438\u043a\u043e\u043d\u0430\u0442\u0438 \u0437\u0432\u043e\u0440\u043e\u0442\u043d\u0456 \u043e\u043f\u0435\u0440\u0430\u0446\u0456\u0457.<\/p><\/blockquote>\n<p>  <\/p>\n<blockquote><p>\u0421\u043e\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C + + \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f C + + Builder, \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C # \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Visual C # Express \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u00ab\u0428\u0438\u0444\u0440 \u0425\u0430\u0441\u0435\u0433\u0430\u0432\u0430\u00bb, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442 \u0448\u0438\u0444\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0438 \u0434\u0435\u0448\u0438\u0444\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u043f\u043e \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u0443 \u0425\u0430\u0441\u0435\u0433\u0430\u0432\u0430. \u041f\u0440\u0438 \u0448\u0438\u0444\u0440\u043e\u0432\u0430\u043d\u0438\u0438 \u043a\u0430\u0436\u0434\u043e\u043c\u0443 \u0441\u0438\u043c\u0432\u043e\u043b\u0443 \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e\u0433\u043e \u043e\u0442\u043a\u0440\u044b\u0442\u043e\u0433\u043e \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u0435\u0433\u043e \u043f\u043e\u0440\u044f\u0434\u043a\u043e\u0432\u044b\u0439 \u043d\u043e\u043c\u0435\u0440 \u0432 \u0430\u043b\u0444\u0430\u0432\u0438\u0442\u0435, \u043f\u043e\u0441\u043b\u0435 \u0447\u0435\u0433\u043e \u0438\u0437\u0431\u0438\u0440\u0430\u0435\u0442\u0441\u044f \u043a\u043b\u044e\u0447 \u0438 \u0435\u0433\u043e \u0441\u0438\u043c\u0432\u043e\u043b\u044b \u043f\u043e\u0434\u043f\u0438\u0441\u044b\u0432\u0430\u044e\u0442\u0441\u044f \u043f\u043e\u0434 \u0441\u0438\u043c\u0432\u043e\u043b\u0430\u043c\u0438 \u0438\u0441\u0445\u043e\u0434\u043d\u043e\u0433\u043e \u043e\u0442\u043a\u0440\u044b\u0442\u043e\u0433\u043e \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u0441 \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u043c \u043f\u043e\u0432\u0442\u043e\u0440\u0435\u043d\u0438\u0435\u043c \u043a\u043b\u044e\u0447\u0443. \u0421\u0438\u043c\u0432\u043e\u043b\u0430\u043c \u043a\u043b\u044e\u0447\u0443 \u0442\u0430\u043a\u0436\u0435 \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u044e\u0442\u0441\u044f \u043f\u043e\u0440\u044f\u0434\u043a\u043e\u0432\u044b\u0435 \u043d\u043e\u043c\u0435\u0440\u0430 \u043f\u043e \u0430\u043b\u0444\u0430\u0432\u0438\u0442\u0443, \u043f\u043e\u0441\u043b\u0435 \u0447\u0435\u0433\u043e \u043e\u043d\u0438 \u0441\u043e\u0441\u0442\u043e\u044f\u0442 \u0441 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u043c\u0438 \u0441\u0438\u043c\u0432\u043e\u043b\u0430\u043c\u0438 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u0438 \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u0435 \u043d\u043e\u043c\u0435\u0440\u0430 \u043f\u0435\u0440\u0435\u0432\u043e\u0434\u044f\u0442\u0441\u044f \u0432 \u0441\u0438\u043c\u0432\u043e\u043b\u044b \u0438\u0441\u0445\u043e\u0434\u043d\u043e\u0433\u043e \u0430\u043b\u0444\u0430\u0432\u0438\u0442\u0430. \u0421\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e, \u043f\u0440\u0438 \u043f\u0440\u0435\u0432\u044b\u0448\u0435\u043d\u0438\u0438 \u043f\u043e\u0440\u044f\u0434\u043a\u043e\u0432\u044b\u043c \u043d\u043e\u043c\u0435\u0440\u043e\u043c \u0441\u0438\u043c\u0432\u043e\u043b\u0430 \u0434\u043b\u0438\u043d\u044b \u0430\u043b\u0444\u0430\u0432\u0438\u0442\u0430 \u043d\u0430\u0434\u043e \u0432\u044b\u0447\u0435\u0441\u0442\u044c \u0434\u043b\u0438\u043d\u0443 \u0430\u043b\u0444\u0430\u0432\u0438\u0442\u0430. \u041f\u0440\u0438 \u0434\u0435\u0448\u0438\u0444\u0440\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0438 \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u043e\u0431\u0440\u0430\u0442\u043d\u044b\u0435 \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u0438.<\/p><\/blockquote>\n<\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u041a\u043e\u0434<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"delphi\">\/\/ \u0428\u0438\u0444\u0440\u0430\u0446\u0438\u044f function encrypt(const text, key: string): string; var   i, p1, p2, len: integer;   s: string; begin   s := text;   len := length(key);   for i := 1 to length(text) do   begin     p1 := pos(text[i], alp);     if p1 = 0 then       continue;     p2 := pos(key[(i - 1) mod len + 1], alp);     s[i] := alp[(p1 + p2 - 1) mod alplen + 1];   end;   result := s; end; \/\/\u0414\u0435\u0448\u0438\u0444\u0440\u0430\u0446\u0438\u044f function decrypt(const text, key: string): string; var   i, p1, p2, len: integer;   s: string; begin   s := text;   len := length(key);   for i := 1 to length(text) do   begin     p1 := pos(text[i], alp);     if p1 = 0 then       continue;     p2 := pos(key[(i - 1) mod len + 1], alp);     s[i] := alp[(p1 - p2 - 1 + alplen) mod alplen + 1];   end;   result := s; end; <\/code><\/pre>\n<p>  <\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0421\u043a\u0440\u0438\u043d\u0448\u043e\u0442\u044b<\/b><\/p>\n<div class=\"spoiler_text\"><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/199\/1a8\/c1e\/1991a8c1e57cc17e7b01275d745aab41.jpg\"\/><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/fef\/791\/b7f\/fef791b7f5a9eebb2e404c78fda17e5f.jpg\"\/><\/div>\n<\/div>\n<p>  \u041e\u0447\u0435\u043d\u044c \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e\u0435 \u0437\u0430\u0434\u0430\u043d\u0438\u0435. \u0415\u0433\u043e \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u043d\u0430\u0448\u0435\u043b \u043c\u043e\u0439 \u043e\u0434\u043d\u043e\u0433\u0440\u0443\u043f\u043f\u043d\u0438\u043a: \u0435\u043c\u0443 \u043f\u043e\u043c\u043e\u0433 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442 \u043d\u0430 \u0444\u043e\u0440\u0443\u043c\u0435. \u0411\u0435\u0437 \u043d\u0435\u0433\u043e \u043c\u044b \u043d\u0435 \u0441\u043c\u043e\u0433\u043b\u0438 \u0431 \u043d\u0430\u0439\u0442\u0438 \u0440\u0435\u0448\u0435\u043d\u0438\u044f. \u0417\u0430\u0433\u0432\u043e\u0437\u0434\u043a\u0430 \u0432 \u0442\u043e\u043c, \u0447\u0442\u043e \u043d\u0430 \u0441\u0430\u043c\u043e\u043c \u0434\u0435\u043b\u0435 \u044d\u0442\u043e \u0440\u0430\u0437\u043d\u043e\u0432\u0438\u0434\u043d\u043e\u0441\u0442\u044c \u0448\u0438\u0444\u0440\u0430 \u0412\u0438\u0436\u0438\u043d\u0435\u0440\u0430, \u0445\u043e\u0442\u044f \u043f\u043e\u0437\u0436\u0435 \u043c\u044b \u043d\u0430\u0448\u043b\u0438 \u0438\u0441\u0442\u043e\u0447\u043d\u0438\u043a, \u0433\u0434\u0435 \u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u0438\u043c\u0435\u043d\u043d\u043e \u0448\u0438\u0444\u0440 \u0425\u043e\u0441\u0435\u0433\u0430\u0432\u044b. <\/p>\n<h5>\u0417\u0430\u0434\u0430\u043d\u0438\u0435 6<\/h5>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0417\u0430\u0434\u0430\u043d\u0438\u0435<\/b><\/p>\n<div class=\"spoiler_text\">\n<blockquote><p>\u0421\u043a\u043b\u0430\u0441\u0442\u0438 \u043d\u0430 \u043c\u043e\u0432\u0456 C++ \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f C++Builder, \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 C# \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Visual C# Express \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443 \u00ab\u0413\u0440\u0430\u00bb. \u0413\u0440\u0443\u043f\u0430 \u0437 n \u0443\u0447\u043d\u0456\u0432 \u043e\u0434\u044f\u0433\u0430\u043b\u0430 \u0444\u0443\u0442\u0431\u043e\u043b\u043a\u0438 \u0437 \u043f\u043e\u0437\u043d\u0430\u0447\u0435\u043d\u0438\u043c\u0438 \u043d\u0430 \u0441\u043f\u0438\u043d\u0456 \u043f\u043e\u0441\u043b\u0456\u0434\u043e\u0432\u043d\u0438\u043c\u0438 \u043d\u043e\u043c\u0435\u0440\u0430\u043c\u0438 \u0432\u0456\u0434 1 \u0434\u043e n. \u0423\u0447\u043d\u0456 \u0441\u0442\u0430\u043d\u043e\u0432\u0438\u043b\u0438\u0441\u044f \u0432 \u043a\u043e\u043b\u043e \u043f\u043e \u043f\u043e\u0440\u044f\u0434\u043a\u0443 \u043d\u043e\u043c\u0435\u0440\u0456\u0432 \u0442\u0430 \u0447\u0438\u0442\u0430\u043b\u0438 \u043b\u0456\u0447\u0438\u043b\u043a\u0443, \u0449\u043e \u0437\u0430\u043a\u0456\u043d\u0447\u0443\u0432\u0430\u043b\u0430\u0441\u044c \u0441\u043b\u043e\u0432\u0430\u043c\u0438 \u201c\u2026\u043f\u0456\u0448\u043e\u0432 \u0433\u0435\u0442\u044c\u201d (\u043f\u043e\u0447\u0438\u043d\u0430\u044e\u0447\u0438 \u0437 \u21161 \u0432 \u043f\u043e\u0440\u044f\u0434\u043a\u0443 \u0437\u0431\u0456\u043b\u044c\u0448\u0435\u043d\u043d\u044f \u043d\u043e\u043c\u0435\u0440\u0456\u0432). \u0422\u043e\u0439, \u043d\u0430 \u043a\u043e\u0433\u043e \u043f\u0430\u0434\u0430\u043b\u043e \u043e\u0441\u0442\u0430\u043d\u043d\u0454 \u0441\u043b\u043e\u0432\u043e \u201c\u0433\u0435\u0442\u044c\u201d, \u043f\u043e\u043a\u0438\u0434\u0430\u0432 \u043a\u043e\u043b\u043e. \u041b\u0456\u0447\u0438\u043b\u043a\u0430 \u043f\u0440\u043e\u0434\u043e\u0432\u0436\u0443\u0432\u0430\u043b\u0430\u0441\u044c \u0434\u0430\u043b\u0456 \u0437 \u043d\u0430\u0441\u0442\u0443\u043f\u043d\u043e\u0433\u043e \u0443\u0447\u043d\u044f, \u043f\u043e\u043a\u0438 \u043d\u0435 \u0437\u0430\u043b\u0438\u0448\u0430\u0432\u0441\u044f \u043e\u0434\u0438\u043d \u0443\u0447\u0430\u0441\u043d\u0438\u043a. \u0417\u043d\u0430\u044e\u0447\u0438, \u0449\u043e \u0432 \u043b\u0456\u0447\u0438\u043b\u0446\u0456 m \u0441\u043b\u0456\u0432, \u0412\u043e\u0432\u043e\u0447\u043a\u0430 \u0437\u0430\u0432\u0436\u0434\u0438 \u0432\u0441\u0442\u0438\u0433\u0430\u0432 \u043e\u0431\u0438\u0440\u0430\u0442\u0438 \u0444\u0443\u0442\u0431\u043e\u043b\u043a\u0443 \u0437 \u0442\u0430\u043a\u0438\u043c \u043d\u043e\u043c\u0435\u0440\u043e\u043c, \u0449\u043e\u0431 \u0432\u0438\u0433\u0440\u0430\u0442\u0438. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u0430 \u043c\u0430\u0454 \u043e\u0442\u0440\u0438\u043c\u0443\u0432\u0430\u0442\u0438 \u0432\u0456\u0434 \u043a\u043e\u0440\u0438\u0441\u0442\u0443\u0432\u0430\u0447\u0430 \u0447\u0438\u0441\u043b\u0430 m \u0442\u0430 n \u0456 \u0432\u0438\u0432\u043e\u0434\u0438\u0442\u0438 \u043d\u043e\u043c\u0435\u0440, \u044f\u043a\u0438\u0439 \u043c\u0430\u0454 \u0431\u0443\u0442\u0438 \u0432 \u043f\u0435\u0440\u0435\u043c\u043e\u0436\u0446\u044f. \u041e\u0431\u043c\u0435\u0436\u0435\u043d\u043d\u044f: m&lt;30000, n&lt;30000.<\/p><\/blockquote>\n<p>  <\/p>\n<blockquote><p>\u0421\u043e\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C + + \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f C + + Builder, \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C # \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Visual C # Express \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u00ab\u0418\u0433\u0440\u0430\u00bb. \u0413\u0440\u0443\u043f\u043f\u0430 \u0438\u0437 n \u0443\u0447\u0435\u043d\u0438\u043a\u043e\u0432 \u043d\u0430\u0434\u0435\u0432\u0430\u043b\u0430 \u0444\u0443\u0442\u0431\u043e\u043b\u043a\u0438 \u0441 \u043e\u0431\u043e\u0437\u043d\u0430\u0447\u0435\u043d\u043d\u044b\u043c\u0438 \u043d\u0430 \u0441\u043f\u0438\u043d\u0435 \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u043c\u0438 \u043d\u043e\u043c\u0435\u0440\u0430\u043c\u0438 \u043e\u0442 1 \u0434\u043e n. \u0423\u0447\u0435\u043d\u0438\u043a\u0438 \u0441\u0442\u0430\u043d\u043e\u0432\u0438\u043b\u0438\u0441\u044c \u0432 \u043a\u0440\u0443\u0433 \u043f\u043e \u043f\u043e\u0440\u044f\u0434\u043a\u0443 \u043d\u043e\u043c\u0435\u0440\u043e\u0432 \u0438 \u0447\u0438\u0442\u0430\u043b\u0438 \u0441\u0447\u0438\u0442\u0430\u043b\u043a\u0443, \u0447\u0442\u043e \u0437\u0430\u043a\u0430\u043d\u0447\u0438\u0432\u0430\u043b\u0430\u0441\u044c \u0441\u043b\u043e\u0432\u0430\u043c\u0438 &quot;\u2026 \u0443\u0448\u0435\u043b&quot; (\u043d\u0430\u0447\u0438\u043d\u0430\u044f \u0441 \u2116 1 \u0432 \u043f\u043e\u0440\u044f\u0434\u043a\u0435 \u0432\u043e\u0437\u0440\u0430\u0441\u0442\u0430\u043d\u0438\u044f \u043d\u043e\u043c\u0435\u0440\u043e\u0432). \u0422\u043e\u0442, \u043d\u0430 \u043a\u043e\u0433\u043e \u043f\u0430\u0434\u0430\u043b\u043e \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0435 \u0441\u043b\u043e\u0432\u043e \u00ab\u043f\u0440\u043e\u0447\u044c\u00bb, \u043f\u043e\u043a\u0438\u0434\u0430\u043b \u043a\u0440\u0443\u0433. \u0421\u0447\u0438\u0442\u0430\u043b\u043a\u0430 \u043f\u0440\u043e\u0434\u043e\u043b\u0436\u0430\u043b\u0430\u0441\u044c \u0434\u0430\u043b\u044c\u0448\u0435 \u0441\u043e \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0433\u043e \u0443\u0447\u0435\u043d\u0438\u043a\u0430, \u043f\u043e\u043a\u0430 \u043d\u0435 \u043e\u0441\u0442\u0430\u0432\u0430\u043b\u0441\u044f \u043e\u0434\u0438\u043d \u0443\u0447\u0430\u0441\u0442\u043d\u0438\u043a. \u0417\u043d\u0430\u044f, \u0447\u0442\u043e \u0432 \u0441\u0447\u0438\u0442\u0430\u043b\u043a\u0435 m \u0441\u043b\u043e\u0432, \u0412\u043e\u0432\u043e\u0447\u043a\u0430 \u0432\u0441\u0435\u0433\u0434\u0430 \u0443\u0441\u043f\u0435\u0432\u0430\u043b \u0432\u044b\u0431\u0438\u0440\u0430\u0442\u044c \u0444\u0443\u0442\u0431\u043e\u043b\u043a\u0443 \u0441 \u0442\u0430\u043a\u0438\u043c \u043d\u043e\u043c\u0435\u0440\u043e\u043c, \u0447\u0442\u043e\u0431\u044b \u0432\u044b\u0438\u0433\u0440\u0430\u0442\u044c. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0434\u043e\u043b\u0436\u043d\u0430 \u043f\u043e\u043b\u0443\u0447\u0430\u0442\u044c \u043e\u0442 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f \u0447\u0438\u0441\u043b\u0430 m \u0438 n \u0438 \u0432\u044b\u0432\u043e\u0434\u0438\u0442\u044c \u043d\u043e\u043c\u0435\u0440, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0434\u043e\u043b\u0436\u0435\u043d \u0431\u044b\u0442\u044c \u0443 \u043f\u043e\u0431\u0435\u0434\u0438\u0442\u0435\u043b\u044f. \u041e\u0433\u0440\u0430\u043d\u0438\u0447\u0435\u043d\u0438\u044f: m &lt;30000, n &lt;30000.<\/p><\/blockquote>\n<\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u041a\u043e\u0434<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"delphi\">function TForm1.find(W,P:integer): integer; var   pointer: integer;   arrP: array of integer;   tempArr: array of integer;   I,j: Integer;   m: integer;   Str:string; begin SetLength(arrP,P);   for I := 0 to P-1 do  \/\/ \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c \u043c\u0430\u0441\u0441\u0438\u0432 \u0447\u0438\u0441\u043b\u0430\u043c\u0438 \u043e\u0442 1 \u0434\u043e P     arrP[i] := i+1;     pointer := 0;   while Length(arrP) &lt;&gt; 1 do   begin   pointer := (pointer + W - 1) mod length(arrP);    arrP[pointer] := 0;    \/\/ \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e \u0441\u0442\u0430\u0432\u0438\u043c \u043d\u0443\u043b\u0435\u043c   m := 0; SetLength(tempArr, Length(arrP)-1);  \/\/ \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043d\u043e\u0432\u044b\u0439 \u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0431\u0443\u0434\u0435\u0442 \u043d\u0430 1 \u043c\u0435\u043d\u044c\u0448\u0435 (\u0431\u0435\u0437 \u0432\u044b\u0431\u044b\u0432\u0448\u0435\u0433\u043e \u0438\u0433\u0440\u043e\u043a\u0430)   for i := 0 to length(tempArr)-1 do     begin       if arrP[i] = 0 then   m :=1;       tempArr[i] := arrP[i+m];     end; SetLength(arrP,Length(tempArr));   for I := 0 to Length(tempArr) do  arrP[i] := tempArr[i];   end;   find:= arrP[0]; end; <\/code><\/pre>\n<p>  <\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0421\u043a\u0440\u0438\u043d\u0448\u043e\u0442\u044b<\/b><\/p>\n<div class=\"spoiler_text\"><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/bcf\/b02\/532\/bcfb02532929853a7bf22a72f6774f61.jpg\"\/><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/df9\/4d1\/d98\/df94d1d981f57161c23e053fbac2fcf3.jpg\"\/><\/div>\n<\/div>\n<p>  \u0418\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e\u0435 \u0437\u0430\u0434\u0430\u043d\u0438\u0435. \u041d\u0430 \u0444\u043e\u0440\u0443\u043c\u0430\u0445 \u043c\u043e\u0436\u043d\u043e \u043d\u0430\u0439\u0442\u0438 \u0440\u0435\u0448\u0435\u043d\u0438\u044f, \u043d\u043e \u044f \u0438\u0437\u043e\u0431\u0440\u0435\u043b \u0432\u0435\u043b\u043e\u0441\u0438\u043f\u0435\u0434 \u0437\u0430\u043d\u043e\u0432\u043e. \u041a\u0440\u0438\u0432\u043e, \u00ab\u043d\u0435 \u043a\u0440\u0430\u0441\u0438\u0432\u043e\u00bb, \u043d\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442:). <\/p>\n<h5>\u0417\u0430\u0434\u0430\u043d\u0438\u0435 7<\/h5>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0417\u0430\u0434\u0430\u043d\u0438\u0435<\/b><\/p>\n<div class=\"spoiler_text\">\n<blockquote><p>\u0421\u043a\u043b\u0430\u0441\u0442\u0438 \u043d\u0430 \u043c\u043e\u0432\u0456 C++ \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f C++Builder, \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 C# \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Visual C# Express \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443 \u00ab\u041a\u0438\u0434\u0430\u043d\u043d\u044f \u043a\u0443\u0431\u0438\u043a\u0430\u00bb. \u041f\u0435\u0440\u0435\u0434\u0431\u0430\u0447\u0430\u0454\u0442\u044c\u0441\u044f, \u0449\u043e \u043a\u0443\u0431\u0438\u043a, \u0433\u0440\u0430\u043d\u0456 \u044f\u043a\u043e\u0433\u043e \u043f\u043e\u043c\u0456\u0447\u0435\u043d\u0456 \u0446\u0438\u0444\u0440\u0430\u043c\u0438 \u0432\u0456\u0434 1 \u0434\u043e 6, \u043a\u0438\u0434\u0430\u044e\u0442\u044c N \u0440\u0430\u0437\u0456\u0432. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u0430 \u043f\u043e\u0432\u0438\u043d\u043d\u0430 \u043e\u0431\u0447\u0438\u0441\u043b\u0438\u0442\u0438 \u0432\u0456\u0440\u043e\u0433\u0456\u0434\u043d\u0456\u0441\u0442\u044c \u0442\u043e\u0433\u043e, \u0449\u043e \u0441\u0443\u043c\u0430 \u0447\u0438\u0441\u0435\u043b, \u0449\u043e \u0432\u0438\u043f\u0430\u043b\u0438, \u0431\u0443\u0434\u0435 \u0434\u043e\u0440\u0456\u0432\u043d\u044e\u0432\u0430\u0442\u0438 Q. \u0420\u043e\u0437\u0440\u0430\u0445\u043e\u0432\u0430\u043d\u0430 \u0432\u0456\u0440\u043e\u0433\u0456\u0434\u043d\u0456\u0441\u0442\u044c \u0443 \u0432\u0438\u0433\u043b\u044f\u0434\u0456 \u0434\u0456\u0439\u0441\u043d\u043e\u0433\u043e \u0447\u0438\u0441\u043b\u0430 \u043c\u0430\u0454 \u0432\u0456\u0434\u0440\u0456\u0437\u043d\u044f\u0442\u0438\u0441\u044c \u0432\u0456\u0434 \u0456\u0441\u0442\u0438\u043d\u043d\u043e\u0433\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u043d\u044f \u043d\u0435 \u0431\u0456\u043b\u044c\u0448\u0435 \u043d\u0456\u0436 \u043d\u0430 0,01 \u0456\u0441\u0442\u0438\u043d\u043d\u043e\u0433\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u043d\u044f. \u0427\u0438\u0441\u043b\u0430 N \u0442\u0430 Q \u043c\u0430\u044e\u0442\u044c \u0432\u0432\u043e\u0434\u0438\u0442\u0438\u0441\u044c \u043a\u043e\u0440\u0438\u0441\u0442\u0443\u0432\u0430\u0447\u0435\u043c \u0437 \u043f\u043e\u043b\u0456\u0432 \u0432\u0432\u043e\u0434\u0443. <\/p><\/blockquote>\n<p>  <\/p>\n<blockquote><p>\u0421\u043e\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C + + \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f C + + Builder, \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C # \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Visual C # Express \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u00ab\u0411\u0440\u043e\u0441\u0430\u043d\u0438\u0435 \u043a\u0443\u0431\u0438\u043a\u0430\u00bb. \u041f\u0440\u0435\u0434\u043f\u043e\u043b\u0430\u0433\u0430\u0435\u0442\u0441\u044f, \u0447\u0442\u043e \u043a\u0443\u0431\u0438\u043a, \u0433\u0440\u0430\u043d\u0438 \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u043f\u043e\u043c\u0435\u0447\u0435\u043d\u044b \u0446\u0438\u0444\u0440\u0430\u043c\u0438 \u043e\u0442 1 \u0434\u043e 6, \u0431\u0440\u043e\u0441\u0430\u044e\u0442 N \u0440\u0430\u0437. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0434\u043e\u043b\u0436\u043d\u0430 \u0432\u044b\u0447\u0438\u0441\u043b\u0438\u0442\u044c \u0432\u0435\u0440\u043e\u044f\u0442\u043d\u043e\u0441\u0442\u044c \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u0441\u0443\u043c\u043c\u0430 \u0447\u0438\u0441\u0435\u043b, \u0432\u044b\u043f\u0430\u0432\u0448\u0438\u0445 \u0431\u0443\u0434\u0435\u0442 \u0440\u0430\u0432\u043d\u0430 Q. \u0420\u0430\u0441\u0441\u0447\u0438\u0442\u0430\u043d\u0430\u044f \u0432\u0435\u0440\u043e\u044f\u0442\u043d\u043e\u0441\u0442\u044c \u0432 \u0432\u0438\u0434\u0435 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0433\u043e \u0447\u0438\u0441\u043b\u0430 \u0434\u043e\u043b\u0436\u043d\u0430 \u043e\u0442\u043b\u0438\u0447\u0430\u0442\u044c\u0441\u044f \u043e\u0442 \u0438\u0441\u0442\u0438\u043d\u043d\u043e\u0433\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u043d\u0435 \u0431\u043e\u043b\u0435\u0435 \u0447\u0435\u043c \u043d\u0430 0,01 \u0438\u0441\u0442\u0438\u043d\u043d\u043e\u0433\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f. \u0427\u0438\u0441\u043b\u0430 N \u0438 Q \u0438\u043c\u0435\u044e\u0442 \u0432\u0432\u043e\u0434\u0438\u0442\u044c\u0441\u044f \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u043c \u0441 \u043f\u043e\u043b\u0435\u0439 \u0432\u0432\u043e\u0434\u0430.<\/p><\/blockquote>\n<\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u041a\u043e\u0434<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"delphi\">const   maxSumm = 500 + 2;   maxN = 200 + 2;  function TForm1.getRes(n:integer;sum:integer):double; var   arr: array [0..MaxSumm, 0..maxN] of double;   currN: Integer;   currSumm: Integer;   prev: integer; begin for CurrN := 0 to MaxN do   for CurrSumm := 0 to MaxSumm do     arr[sum,n] := 0; arr[0,0] :=1; for currN := 1 to n do   for currSumm := 1 to sum do     for prev := 1 to 6 do       if currSumm - prev &gt;= 0 then         arr[CurrSumm,currN] := arr[CurrSumm,currN] + (arr[CurrSumm - prev,currN-1] \/ 6.0);  getRes := arr[sum,n]; end; <\/code><\/pre>\n<p>  <\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0421\u043a\u0440\u0438\u043d\u0448\u043e\u0442\u044b<\/b><\/p>\n<div class=\"spoiler_text\"><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/d43\/e8d\/112\/d43e8d112ea6517a7c94598d5336e8a4.jpg\"\/><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/6be\/e3b\/8ad\/6bee3b8ad81435c53c28ebaa58f032c9.jpg\"\/><\/div>\n<\/div>\n<p>  \u0410 \u044d\u0442\u043e \u0433\u043b\u0443\u043f\u043e\u0435 \u0437\u0430\u0434\u0430\u043d\u0438\u0435. \u041f\u0435\u0440\u0432\u043e\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e \u044f \u0445\u043e\u0442\u0435\u043b \u0438\u0437\u043e\u0431\u0440\u0435\u0441\u0442\u0438 \u0446\u0435\u043b\u0443\u044e \u0441\u0438\u0441\u0442\u0435\u043c\u0443, \u0434\u043b\u044f \u043f\u043e\u0434\u0441\u0447\u0435\u0442\u0430 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u0430 \u00ab\u043f\u043e\u0434\u0445\u043e\u0434\u044f\u0449\u0438\u0445\u00bb \u0441\u043e\u0431\u044b\u0442\u0438\u0439, \u0430 \u043f\u043e\u0442\u043e\u043c \u0434\u0435\u043b\u0438\u0442\u044c \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e \u043d\u0430 \u0447\u0438\u0441\u043b\u043e \u0432\u0441\u0435\u0445 \u0441\u043e\u0431\u044b\u0442\u0438\u0439. \u0425\u043e\u0442\u0435\u043b \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u044d\u0442\u043e \u043f\u043e \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0443 \u0441\u0447\u0435\u0442\u0447\u0438\u043a\u0430 ( \u0441\u0442\u0430\u0432\u0438\u043c \u0432\u0441\u0435 \u043a\u0443\u0431\u0438\u043a\u0438 \u043d\u0430 \u043f\u043e\u043b\u043e\u0436\u0435\u043d\u0438\u0435 1 \u0438 \u043a\u0440\u0430\u0439\u043d\u0438\u0439 \u043a\u0443\u0431\u0438\u043a \u043d\u0430\u0447\u0438\u043d\u0430\u0435\u043c \u00ab\u043a\u0440\u0443\u0442\u0438\u0442\u044c\u00bb, \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u044f \u0435\u0433\u043e \u0447\u0438\u0441\u043b\u043e; \u043a\u043e\u0433\u0434\u0430 \u0447\u0438\u0441\u043b\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u0442 6-\u043a\u0443, \u0442\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043a\u0443\u0431\u0438\u043a\u0430 \u0441\u0431\u0440\u0430\u0441\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u043d\u0430 1, \u0430 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0441\u043e\u0441\u0435\u0434\u043d\u0435\u0433\u043e \u043a\u0443\u0431\u0438\u043a\u0430 \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u043d\u0430 1 \u0438 \u0442\u0430\u043a \u0434\u0430\u043b\u0435\u0435; \u0435\u0441\u043b\u0438 \u0441\u0443\u043c\u043c\u0430 \u0447\u0438\u0441\u0435\u043b \u043f\u043e\u0434\u0445\u043e\u0434\u0438\u0442 \u2013 \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u0435\u043c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e-\u0441\u0447\u0435\u0442\u0447\u0438\u043a; \u043d\u0430 \u0432\u044b\u0445\u043e\u0434\u0435 \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0438 \u0431\u044b \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0432\u0441\u0435\u0445 \u043f\u043e\u0434\u0445\u043e\u0434\u044f\u0449\u0438\u0445 \u0441\u043e\u0431\u044b\u0442\u0438\u0439), \u043d\u043e \u043f\u043e\u0442\u043e\u043c \u043f\u0435\u0440\u0435\u0434\u0443\u043c\u0430\u043b (\u043b\u0435\u043d\u044c-\u043c\u0430\u0442\u0443\u0448\u043a\u0430 \u043d\u0430\u0434\u043e\u0443\u043c\u0438\u043b\u0430 \u043d\u0435 \u0437\u0430\u043d\u0438\u043c\u0430\u0442\u044c\u0441\u044f \u0433\u043b\u0443\u043f\u043e\u0441\u0442\u044f\u043c\u0438) \u0438 \u043f\u043e\u0448\u0435\u043b \u043b\u0430\u0437\u0430\u0442\u044c \u043f\u043e \u0418\u043d\u0442\u0435\u0440\u043d\u0435\u0442\u0443. \u041d\u0430 \u043e\u0434\u043d\u043e\u043c \u0441\u0430\u0439\u0442\u0435, \u043f\u043e\u0441\u0432\u044f\u0449\u0435\u043d\u043d\u043e\u043c\u0443 \u043e\u043b\u0438\u043c\u043f\u0438\u0430\u0434\u043d\u044b\u043c \u0437\u0430\u0434\u0430\u0447\u0430\u043c, \u043d\u0430\u0448\u0435\u043b \u0447\u0435\u043b\u043e\u0432\u0435\u043a\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0440\u0435\u0448\u0438\u043b \u0434\u0430\u043d\u043d\u0443\u044e \u0437\u0430\u0434\u0430\u0447\u0443 \u0438 \u043f\u043e\u043f\u0440\u043e\u0441\u0438\u043b \u0435\u0433\u043e \u043f\u043e\u0434\u0435\u043b\u0438\u0442\u044c\u0441\u044f \u043a\u043e\u0434\u043e\u043c. \u041a\u043e\u0434 \u0431\u044b\u043b \u043d\u0430 \u0421++, \u043e\u043d \u0431\u0435\u0437 \u043f\u0440\u043e\u0431\u043b\u0435\u043c \u0440\u0430\u0431\u043e\u0442\u0430\u043b. \u041d\u0430 Delphi \u043f\u043e\u044f\u0432\u0438\u043b\u0438\u0441\u044c \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u044b: \u0434\u0432\u0443\u043c\u0435\u0440\u043d\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 \u0438\u043c\u0435\u043b \u043e\u0447\u0435\u043d\u044c \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0435\u043d\u043d\u044b\u0439 \u0440\u0430\u0437\u043c\u0435\u0440. \u041f\u043e\u044d\u0442\u043e\u043c\u0443 \u044f \u0434\u0435\u043b\u0430\u043b \u0435\u0433\u043e \u0440\u0430\u0437\u043c\u0435\u0440 500*200 (\u0431\u043e\u043b\u0435\u0435 \u0431\u043e\u043b\u044c\u0448\u0438\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u043f\u0440\u0438\u0432\u043e\u0434\u0438\u043b\u0438 \u043a \u0442\u0438\u0445\u043e\u043c\u0443 \u0437\u0430\u043a\u0440\u044b\u0442\u0438\u044e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0431\u0435\u0437 \u043a\u0430\u043a\u0438\u0445 \u043b\u0438\u0431\u043e \u043e\u0448\u0438\u0431\u043e\u043a \u0438 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0439).<\/p>\n<h5>\u0417\u0430\u0434\u0430\u043d\u0438\u0435 8<\/h5>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0417\u0430\u0434\u0430\u043d\u0438\u0435<\/b><\/p>\n<div class=\"spoiler_text\">\n<blockquote><p>\u0421\u043a\u043b\u0430\u0441\u0442\u0438 \u043d\u0430 \u043c\u043e\u0432\u0456 C++ \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f C++Builder, \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 C# \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Visual C# Express \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443 \u00ab\u0414\u0435\u043f\u043e\u0437\u0438\u0442\u00bb, \u044f\u043a\u0430 \u043f\u043e\u0432\u0438\u043d\u043d\u0430 \u043e\u0431\u0447\u0438\u0441\u043b\u044e\u0432\u0430\u0442\u0438 \u0434\u043e\u0445\u0456\u0434 \u043f\u043e \u0432\u043a\u043b\u0430\u0434\u0443 \u043a\u043e\u0448\u0442\u0456\u0432 \u043d\u0430 \u0434\u0435\u043f\u043e\u0437\u0438\u0442 \u0432 \u0431\u0430\u043d\u043a\u0443. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u0430 \u043f\u043e\u0432\u0438\u043d\u043d\u0430 \u0437\u0430\u0431\u0435\u0437\u043f\u0435\u0447\u0443\u0432\u0430\u0442\u0438 \u0440\u043e\u0437\u0440\u0430\u0445\u0443\u043d\u043e\u043a \u043f\u0440\u043e\u0441\u0442\u0438\u0445 \u0442\u0430 \u0441\u043a\u043b\u0430\u0434\u043d\u0438\u0445 \u0432\u0456\u0434\u0441\u043e\u0442\u043a\u0456\u0432. \u041f\u0440\u043e\u0441\u0442\u0456 \u0432\u0456\u0434\u0441\u043e\u0442\u043a\u0438 \u043d\u0430\u0440\u0430\u0445\u043e\u0432\u0443\u044e\u0442\u044c\u0441\u044f \u0432 \u043a\u0456\u043d\u0446\u0456 \u0442\u0435\u0440\u043c\u0456\u043d\u0443 \u0432\u043a\u043b\u0430\u0434\u0443, \u0441\u043a\u043b\u0430\u0434\u043d\u0456 \u2013 \u0449\u043e\u043c\u0456\u0441\u044f\u0447\u043d\u043e \u0442\u0430 \u0434\u043e\u0434\u0430\u044e\u0442\u044c\u0441\u044f \u0434\u043e \u043f\u0435\u0440\u0432\u0438\u043d\u043d\u043e\u0457 \u0441\u0443\u043c\u0438 \u0432\u043a\u043b\u0430\u0434\u0443 \u0456 \u0432 \u043d\u0430\u0441\u0442\u0443\u043f\u043d\u043e\u043c\u0443 \u043c\u0456\u0441\u044f\u0446\u0456 \u0432\u0456\u0434\u0441\u043e\u0442\u043a\u0438 \u043d\u0430\u0440\u0430\u0445\u043e\u0432\u0443\u044e\u0442\u044c\u0441\u044f \u043d\u0430 \u043d\u043e\u0432\u0443 \u0441\u0443\u043c\u0443.<\/p><\/blockquote>\n<p>  <\/p>\n<blockquote><p>\u0421\u043e\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 \u0421++ \u0432 \u0441\u0440\u0435\u0434\u0435 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0438 C++Builder, \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C# \u0432 \u0431\u0440\u0435\u0434\u0435 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0438 Visual C# Express, \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 Object Pascal \u0432 \u0441\u0440\u0435\u0434\u0435 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0438 Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u00ab\u0414\u0435\u043f\u043e\u0437\u0438\u0442\u00bb, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0434\u043e\u043b\u0436\u043d\u0430 \u0440\u0430\u0441\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0442\u044c \u0434\u043e\u0445\u043e\u0434 \u043f\u043e \u0432\u043a\u043b\u0430\u0434\u0443 \u0434\u0435\u043d\u0435\u0436\u043d\u044b\u0445 \u0441\u0440\u0435\u0434\u0441\u0442\u0432 \u043d\u0430 \u0434\u0435\u043f\u043e\u0437\u0438\u0442 \u0432 \u0431\u0430\u043d\u043a. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0434\u043e\u043b\u0436\u043d\u0430 \u043e\u0431\u0435\u0441\u043f\u0435\u0447\u0438\u0432\u0430\u0442\u044c \u0440\u0430\u0441\u0447\u0435\u0442 \u043f\u0440\u043e\u0441\u0442\u044b\u0445 \u0438 \u0441\u043b\u043e\u0436\u043d\u044b\u0445 \u043f\u0440\u043e\u0446\u0435\u043d\u0442\u043e\u0432. \u041f\u0440\u043e\u0441\u0442\u044b\u0435 \u043f\u0440\u043e\u0446\u0435\u043d\u0442\u044b \u0440\u0430\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u044e\u0442\u0441\u044f \u0432 \u043a\u043e\u043d\u0446\u0435 \u0441\u0440\u043e\u043a\u0430 \u0432\u043a\u043b\u0430\u0434\u0430, \u0441\u043b\u043e\u0436\u043d\u044b\u0435 \u2013 \u043f\u043e\u043c\u0435\u0441\u044f\u0447\u043d\u043e \u0438 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u043a \u043f\u0435\u0440\u0432\u0438\u0447\u043d\u043e\u0439 \u0441\u0443\u043c\u043c\u0435, \u0430 \u0432 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u043c \u043c\u0435\u0441\u044f\u0446\u0435 \u043f\u0440\u043e\u0446\u0435\u043d\u0442\u044b \u043d\u0430\u0447\u0438\u0441\u043b\u044f\u044e\u0442\u0441\u044f \u043d\u0430 \u043d\u043e\u0432\u0443\u044e \u0441\u0443\u043c\u043c\u0443<\/p><\/blockquote>\n<\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u041a\u043e\u0434<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"delphi\">procedure TForm1.Button1Click(Sender: TObject); var   summ: real;   summCode, period, periodCode, percent, percentCode: integer;   flag: boolean;   temp: real; begin val(PeriodEdit.Text, period, periodCode); val(SummEdit.Text, summ, summCode); val(PerCentEdit.Text, percent, percentCode); Memo.Lines.Clear; flag := false; if periodCode&lt;&gt;0 then begin   Memo.Lines.Add('\u0412\u044b \u043d\u0435\u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e \u0432\u0432\u0435\u043b\u0438 \u043f\u0435\u0440\u0438\u043e\u0434 \u0432\u043a\u043b\u0430\u0434\u0430! \u041f\u0435\u0440\u0438\u043e\u0434 \u0432\u043a\u043b\u0430\u0434\u0430 \u043d\u0443\u0436\u043d\u043e \u0432\u0432\u043e\u0434\u0438\u0442\u044c \u0446\u0435\u043b\u044b\u043c \u0447\u0438\u0441\u043b\u043e\u043c');   flag:= true; end; if summCode&lt;&gt;0 then begin   Memo.Lines.Add('\u0412\u044b \u043d\u0435\u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e \u0432\u0432\u0435\u043b\u0438 \u0441\u0443\u043c\u043c\u0443 \u0432\u043a\u043b\u0430\u0434\u0430! \u0421\u0443\u043c\u043c\u0430 \u0432\u043a\u043b\u0430\u0434\u0430 \u043d\u0443\u0436\u043d\u043e \u0432\u0432\u043e\u0434\u0438\u0442\u044c \u0446\u0435\u043b\u044b\u043c \u0447\u0438\u0441\u043b\u043e\u043c');   flag:= true; end; if percentCode&lt;&gt;0 then begin   Memo.Lines.Add('\u0412\u044b \u043d\u0435\u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e \u0432\u0432\u0435\u043b\u0438 \u043f\u0440\u043e\u0446\u0435\u043d\u0442\u043d\u0443\u044e \u0441\u0442\u0430\u0432\u043a\u0443! \u041f\u0440\u043e\u0446\u0435\u043d\u0442\u043d\u0443\u044e \u0441\u0442\u0430\u0432\u043a\u0443 \u043d\u0443\u0436\u043d\u043e \u0432\u0432\u043e\u0434\u0438\u0442\u044c \u0446\u0435\u043b\u044b\u043c \u0447\u0438\u0441\u043b\u043e\u043c');   flag:= true; end; if flag then exit;  if RBsimp.Checked then    temp := summ + (summ*(percent\/100) * period) \/\/ \u043f\u0440\u043e\u0441\u0442\u044b\u0435 \u043f\u0440\u043e\u0446\u0435\u043d\u0442\u044b else   temp := summ * exp(period * ln( 1 + percent\/100)); \/\/ \u0441\u043b\u043e\u0436\u043d\u044b\u0435 \u043f\u0440\u043e\u0446\u0435\u043d\u0442\u044b  Memo.Lines.Add('\u041d\u0430\u0447\u0430\u043b\u044c\u043d\u044f \u0441\u0443\u043c\u043c\u0430 \u0432\u043a\u043b\u0430\u0434\u0430: ' + FloatToStr(summ)); Memo.Lines.Add('\u0418\u0442\u043e\u0433\u043e\u0432\u0430\u044f \u0441\u0443\u043c\u043c\u0430 \u0432\u043a\u043b\u0430\u0434\u0430: ' + FloatToStr(temp)); Memo.Lines.Add('\u041f\u0440\u0438\u0431\u044b\u043b\u044c: ' + FloatToStr(temp - summ)); PeriodEdit.SetFocus; end; <\/code><\/pre>\n<p>  <\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0421\u043a\u0440\u0438\u043d\u0448\u043e\u0442\u044b<\/b><\/p>\n<div class=\"spoiler_text\"><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/4ec\/d37\/954\/4ecd37954e2e22e89bae653a29501789.jpg\"\/><\/div>\n<\/div>\n<p>  \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u043f\u0440\u043e\u0441\u0442\u0430\u044f, \u043e\u0441\u043e\u0431\u044b\u0445 \u043a\u043e\u043c\u043c\u0435\u043d\u0442\u0430\u0440\u0438\u0435\u0432 \u043d\u0435 \u0442\u0440\u0435\u0431\u0443\u0435\u0442.<\/p>\n<h5>\u0417\u0430\u0434\u0430\u043d\u0438\u0435 9<\/h5>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0417\u0430\u0434\u0430\u043d\u0438\u0435<\/b><\/p>\n<div class=\"spoiler_text\">\n<blockquote><p>\u0421\u043a\u043b\u0430\u0441\u0442\u0438 \u043d\u0430 \u043c\u043e\u0432\u0456 C++ \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f C++Builder, \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 C# \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Visual C# Express \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443 \u00ab\u041a\u0456\u043b\u044c\u043a\u0456\u0441\u0442\u044c \u0441\u0438\u043c\u0432\u043e\u043b\u0456\u0432\u00bb, \u044f\u043a\u0430 \u043f\u043e\u0432\u0438\u043d\u043d\u0430 \u0432\u0438\u0437\u043d\u0430\u0447\u0430\u0442\u0438 \u0440\u043e\u0437\u043f\u043e\u0434\u0456\u043b \u043a\u0456\u043b\u044c\u043a\u043e\u0441\u0442\u0456 \u0441\u0438\u043c\u0432\u043e\u043b\u0456\u0432 \u0443 \u0432\u0432\u0435\u0434\u0435\u043d\u043e\u043c\u0443 \u043a\u043e\u0440\u0438\u0441\u0442\u0443\u0432\u0430\u0447\u0435\u043c \u0432 \u043f\u043e\u043b\u0435 Edit \u0440\u044f\u0434\u043a\u0443 \u0442\u0430 \u0432\u0438\u0432\u043e\u0434\u0438\u0442\u0438 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0443 \u0432\u0438\u0433\u043b\u044f\u0434\u0456 \u0442\u0430\u0431\u043b\u0438\u0446\u0456 \u0432\u0438\u0434\u0443 \u201c\u0441\u0438\u043c\u0432\u043e\u043b\u201d \u2013 \u201c\u0439\u043e\u0433\u043e \u043a\u0456\u043b\u044c\u043a\u0456\u0441\u0442\u044c\u201d. \u041f\u0440\u0438\u0439\u043d\u044f\u0442\u0438 \u0434\u043e \u0443\u0432\u0430\u0433\u0438, \u0449\u043e \u0432\u0456\u0434\u043f\u043e\u0432\u0456\u0434\u043d\u0456 \u0432\u0435\u043b\u0438\u043a\u0456 \u0442\u0430 \u043c\u0430\u043b\u0435\u043d\u044c\u043a\u0456 \u043b\u0456\u0442\u0435\u0440\u0438 \u0432 \u0440\u044f\u0434\u043a\u0443 \u043c\u0430\u044e\u0442\u044c \u0441\u043f\u0440\u0438\u0439\u043c\u0430\u0442\u0438\u0441\u044c \u044f\u043a \u043e\u0434\u043d\u0430\u043a\u043e\u0432\u0456. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u0443 \u043d\u0435\u043e\u0431\u0445\u0456\u0434\u043d\u043e \u0441\u043f\u0440\u043e\u0435\u043a\u0442\u0443\u0432\u0430\u0442\u0438 \u0442\u0430\u043a\u0438\u043c \u0447\u0438\u043d\u043e\u043c, \u0449\u043e\u0431 \u043a\u043d\u043e\u043f\u043a\u0430 \u041f\u0456\u0434\u0440\u0430\u0445\u0443\u043d\u043e\u043a \u0431\u0443\u043b\u0430 \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u043e\u044e \u043b\u0438\u0448\u0435 \u0432 \u0442\u043e\u043c\u0443 \u0432\u0438\u043f\u0430\u0434\u043a\u0443, \u044f\u043a\u0449\u043e \u043a\u043e\u0440\u0438\u0441\u0442\u0443\u0432\u0430\u0447 \u0443\u0432\u0456\u0432 \u0430\u043d\u0430\u043b\u0456\u0437\u0443\u0454\u043c\u0438\u0439 \u0440\u044f\u0434\u043e\u043a.<\/p><\/blockquote>\n<p>  <\/p>\n<blockquote><p>\u0421\u043e\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C + + \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f C + + Builder, \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C # \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Visual C # Express \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u00ab\u041a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432\u00bb, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0434\u043e\u043b\u0436\u043d\u0430 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0442\u044c \u0440\u0430\u0441\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u0430 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u0432\u043e \u0432\u0432\u0435\u0434\u0435\u043d\u043d\u043e\u043c \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u043c \u0432 \u043f\u043e\u043b\u0435 Edit \u0441\u0442\u0440\u043e\u043a\u0435 \u0438 \u0432\u044b\u0432\u043e\u0434\u0438\u0442\u044c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0432 \u0432\u0438\u0434\u0435 \u0442\u0430\u0431\u043b\u0438\u0446\u044b \u0432\u0438\u0434\u0430 \u00ab\u0441\u0438\u043c\u0432\u043e\u043b\u00bb \u2014 \u00ab\u0435\u0433\u043e \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e\u00bb. \u041f\u0440\u0438\u043d\u044f\u0442\u044c \u0432\u043e \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435, \u0447\u0442\u043e \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0435 \u0431\u043e\u043b\u044c\u0448\u0438\u0435 \u0438 \u043c\u0430\u043b\u0435\u043d\u044c\u043a\u0438\u0435 \u0431\u0443\u043a\u0432\u044b \u0432 \u0441\u0442\u0440\u043e\u043a\u0435 \u0434\u043e\u043b\u0436\u043d\u044b \u0432\u043e\u0441\u043f\u0440\u0438\u043d\u0438\u043c\u0430\u0442\u044c\u0441\u044f \u043a\u0430\u043a \u043e\u0434\u0438\u043d\u0430\u043a\u043e\u0432\u044b\u0435. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0441\u043f\u0440\u043e\u0435\u043a\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0442\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c, \u0447\u0442\u043e\u0431\u044b \u043a\u043d\u043e\u043f\u043a\u0430 \u041f\u043e\u0434\u0441\u0447\u0435\u0442 \u0431\u044b\u043b\u0430 \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u0430 \u0442\u043e\u043b\u044c\u043a\u043e \u0432 \u0442\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435, \u0435\u0441\u043b\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c \u0432\u0432\u0435\u043b \u0430\u043d\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443.<\/p><\/blockquote>\n<\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u041a\u043e\u0434<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"delphi\">\/\/ \u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430, \u0435\u0441\u0442\u044c \u043b\u0438 \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u0434\u0430\u043d\u043d\u044b\u0439 \u0441\u0438\u043c\u0432\u043e\u043b function TForm1.isPresent(ch: char): boolean; var   i: integer; begin   isPresent := false;   for i := 0 to StringGrid1.RowCount do     if ch = StringGrid1.Cells[0, i] then       isPresent := true;  end; \/\/ \u041f\u043e\u0434\u0441\u0447\u0435\u0442 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 procedure TForm1.Button1Click(Sender: TObject); var   str: String;   tempRes: integer;   i, j, strLength, pointer: integer;   tempChar: char; begin   str := AnsiUpperCase(Edit1.Text);   strLength := Length(str);   pointer := 1;   for i := 1 to strLength do   begin     tempRes := 1;     tempChar := str[i];     if not isPresent(tempChar) then     begin       for j := i + 1 to strLength do       begin         if tempChar = str[j] then           inc(tempRes);       end;       StringGrid1.Cells[0, pointer] := tempChar;       StringGrid1.Cells[1, pointer] := IntToStr(tempRes);       StringGrid1.RowCount := StringGrid1.RowCount + 1;       inc(pointer);     end;   end;  end; <\/code><\/pre>\n<p>  <\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0421\u043a\u0440\u0438\u043d\u0448\u043e\u0442\u044b<\/b><\/p>\n<div class=\"spoiler_text\"><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/ed4\/fbb\/130\/ed4fbb130975c54d472a0f64571e09db.jpg\"\/><\/div>\n<\/div>\n<p>  \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u043c\u043e\u0436\u043d\u043e \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u043a\u0443\u0447\u0435\u0439 \u0441\u043f\u043e\u0441\u043e\u0431\u043e\u0432, \u044f \u0432\u044b\u0431\u0440\u0430\u043b \u043f\u0440\u043e\u0441\u0442\u043e\u0439 \u0441\u043f\u043e\u0441\u043e\u0431 \u0431\u0435\u0437 \u0438\u0437\u043b\u0438\u0448\u0435\u0441\u0442\u0432.<\/p>\n<h5>\u0417\u0430\u0434\u0430\u043d\u0438\u0435 10<\/h5>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0417\u0430\u0434\u0430\u043d\u0438\u0435<\/b><\/p>\n<div class=\"spoiler_text\">\n<blockquote><p>\u0421\u043a\u043b\u0430\u0441\u0442\u0438 \u043d\u0430 \u043c\u043e\u0432\u0456 C++ \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f C++Builder, \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 C# \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Visual C# Express \u0430\u0431\u043e \u043d\u0430 \u043c\u043e\u0432\u0456 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0456 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443\u0432\u0430\u043d\u043d\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0443 \u00ab\u0413\u043e\u0434\u0438\u043d\u0430\u00bb, \u044f\u043a\u0430 \u043c\u0430\u0454 \u0432\u0438\u0437\u043d\u0430\u0447\u0430\u0442\u0438, \u0441\u043a\u0456\u043b\u044c\u043a\u0438 \u043f\u043e\u0432\u043d\u0438\u0445 \u0433\u043e\u0434\u0438\u043d (h) \u0442\u0430 \u043f\u043e\u0432\u043d\u0438\u0445 \u0445\u0432\u0438\u043b\u0438\u043d (m) \u043f\u0440\u043e\u0439\u0448\u043b\u043e \u0432\u0456\u0434 \u043f\u043e\u0447\u0430\u0442\u043a\u0443 \u0434\u043e\u0431\u0438 \u0434\u043e \u0442\u043e\u0433\u043e \u043c\u043e\u043c\u0435\u043d\u0442\u0443 (\u0432 \u043f\u0435\u0440\u0448\u0456\u0439 \u043f\u043e\u043b\u043e\u0432\u0438\u043d\u0456 \u0434\u043d\u044f), \u043a\u043e\u043b\u0438 \u0447\u0430\u0441\u043e\u0432\u0430 \u0441\u0442\u0440\u0456\u043b\u043a\u0430 \u043f\u043e\u0432\u0435\u0440\u043d\u0443\u043b\u0430\u0441\u044c \u043d\u0430 f \u0433\u0440\u0430\u0434\u0443\u0441\u0456\u0432 (0\u2264f\u2264360, f \u2013 \u0434\u0456\u0439\u0441\u043d\u0435 \u0447\u0438\u0441\u043b\u043e).<\/p><\/blockquote>\n<p>  <\/p>\n<blockquote><p>\u0421\u043e\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C + + \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f C + + Builder, \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 C # \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Visual C # Express \u0438\u043b\u0438 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 Object Pascal \u0432 \u0441\u0438\u0441\u0442\u0435\u043c\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f Delphi \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u00ab\u0427\u0430\u0441\u00bb, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0434\u043e\u043b\u0436\u043d\u0430 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0442\u044c, \u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043f\u043e\u043b\u043d\u044b\u0445 \u0447\u0430\u0441\u043e\u0432 (h) \u0438 \u043f\u043e\u043b\u043d\u044b\u0445 \u043c\u0438\u043d\u0443\u0442 (m) \u043f\u0440\u043e\u0448\u043b\u043e \u043e\u0442 \u043d\u0430\u0447\u0430\u043b\u0430 \u0441\u0443\u0442\u043e\u043a \u0434\u043e \u0442\u043e\u0433\u043e \u043c\u043e\u043c\u0435\u043d\u0442\u0430 (\u0432 \u043f\u0435\u0440\u0432\u043e\u0439 \u043f\u043e\u043b\u043e\u0432\u0438\u043d\u0435 \u0434\u043d\u044f), \u043a\u043e\u0433\u0434\u0430 \u0432\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0441\u0442\u0440\u0435\u043b\u043a\u0430 \u0432\u0435\u0440\u043d\u0443\u043b\u0430\u0441\u044c \u043d\u0430 f \u0433\u0440\u0430\u0434\u0443\u0441\u043e\u0432 (0 \u2264 f \u2264 360, f \u2014 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e).<\/p><\/blockquote>\n<\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u041a\u043e\u0434<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"delphi\">procedure TForm2.Button1Click(Sender: TObject); var   fCode:integer;   f:real;   time,h,m,s: integer; begin \/\/\u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u0434\u0430\u043d\u043d\u044b\u0445   val(Edit.Text, f, fCode);   if (fCode&lt;&gt;0) OR (f &gt; 360) OR (f &lt; 0) then     ResLabel.Caption := '\u0412\u044b \u0432\u0432\u0435\u043b\u0438 \u043d\u0435\u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435! \u041f\u0440\u043e\u0432\u0435\u0440\u044c\u0442\u0435 \u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e\u0441\u0442\u044c \u0432\u0432\u0435\u0434\u0435\u043d\u044b\u0445 \u0434\u0430\u043d\u043d\u044b\u0445!'   else \/\/\u041f\u043e\u0434\u0441\u0447\u0435\u0442   begin     time := trunc(f*120);     h := time div 3600;     time := time - 3600*h;     m := time div 60;     time := time - m*60;     ResLabel.Caption := '\u0418\u0442\u043e\u0433\u043e: ' + IntToStr(h) + ' \u0447\u0430\u0441\u043e\u0432, ' + IntToStr(m) + ' \u043c\u0438\u043d\u0443\u0442, ' + IntToStr(time) + ' \u0441\u0435\u043a\u0443\u043d\u0434.';   end; end; <\/code><\/pre>\n<p>  <\/div>\n<\/div>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0421\u043a\u0440\u0438\u043d\u0448\u043e\u0442\u044b<\/b><\/p>\n<div class=\"spoiler_text\"><img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage2\/9b2\/646\/c3d\/9b2646c3d68d732f52495b9955e932a9.jpg\"\/><\/div>\n<\/div>\n<p>  \u041f\u0440\u043e\u0441\u0442\u0430\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430, \u043a\u043e\u043c\u043c\u0435\u043d\u0442\u0430\u0440\u0438\u0435\u0432 \u043d\u0435 \u0442\u0440\u0435\u0431\u0443\u0435\u0442.<\/p>\n<h5>&#8230;<\/h5>\n<p>  \u041d\u0430\u0434\u0435\u044e\u0441\u044c, \u043a\u043e\u0433\u0434\u0430 \u043b\u044e\u0434\u0438 \u0441\u0442\u043e\u043b\u043a\u043d\u0443\u0442\u044c\u0441\u044f \u0441 \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u043e\u0439 \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u043a\u043e\u0433\u043e-\u0442\u043e \u0438\u0437 \u044d\u0442\u0438\u0445 \u0437\u0430\u0434\u0430\u043d\u0438\u0439 \u2013 \u043e\u043d\u0438 \u043d\u0430\u0439\u0434\u0443\u0442 \u044d\u0442\u043e\u0442 \u043f\u043e\u0441\u0442 \u0438 \u043e\u043d \u0438\u043c \u043f\u043e\u043c\u043e\u0436\u0435\u0442. \u0418\u0437\u0432\u0438\u043d\u0438\u0442\u0435 \u0437\u0430 \u0442\u0430\u043a\u043e\u0435 \u0431\u043e\u043b\u044c\u0448\u043e\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0431\u0443\u043a\u0432, \u043d\u043e \u044d\u0442\u043e\u0442 \u043f\u043e\u0441\u0442 \u043f\u0440\u0435\u0434\u043d\u0430\u0437\u043d\u0430\u0447\u0430\u043b\u0441\u044f \u0447\u0438\u0441\u0442\u043e \u0434\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u043f\u043e\u043c\u043e\u0447\u044c \u043b\u044e\u0434\u044f\u043c. <br \/>  \u0415\u0441\u043b\u0438 \u0435\u0441\u0442\u044c \u043e\u0440\u0444\u043e\u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u0438\u0435 \u043e\u0448\u0438\u0431\u043a\u0438, \u043e\u0448\u0438\u0431\u043a\u0438 \u0432 \u043a\u043e\u0434\u0435, \u0443 \u0432\u0430\u0441 \u0435\u0441\u0442\u044c \u043f\u0440\u0435\u0434\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u043f\u043e \u0438\u0441\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u044e \u0438\u043b\u0438 \u043e\u043f\u0442\u0438\u043c\u0438\u0437\u0430\u0446\u0438\u0438 \u043a\u043e\u0434\u0430 \u2013 \u043f\u0438\u0448\u0438\u0442\u0435, \u0438\u0441\u043f\u0440\u0430\u0432\u043b\u044e.<br \/>  \u0421\u043f\u0430\u0441\u0438\u0431\u043e \u0437\u0430 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435. <br \/>  by Morris Decker    \t \t\t   \t<\/p>\n<div class=\"clear\"><\/div>\n<\/p><\/div>\n<p> \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438 <a href=\"http:\/\/habrahabr.ru\/post\/178229\/\"> http:\/\/habrahabr.ru\/post\/178229\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<div class=\"content html_format\">\n<h5>\u0412\u0441\u0442\u0443\u043f\u043b\u0435\u043d\u0438\u0435<\/h5>\n<p>  \u041f\u0440\u0438\u0432\u0435\u0442, \u0425\u0430\u0431\u0440\u043e\u0432\u0447\u0430\u043d\u0435.<br \/>  \u0412\u0435\u0441\u043d\u043e\u0439 \u043e\u0431\u044b\u0447\u043d\u043e \u043f\u0440\u043e\u0432\u043e\u0434\u0438\u0442\u0441\u044f \u0446\u0435\u043b\u0430\u044f \u043a\u0443\u0447\u0430 \u043e\u043b\u0438\u043c\u043f\u0438\u0430\u0434. \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u043d\u0435 \u0438\u0441\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435. \u0417\u0430\u0449\u0438\u0449\u0430\u0442\u044c \u0447\u0435\u0441\u0442\u044c \u043c\u043e\u0435\u0433\u043e \u0443\u0447\u0435\u0431\u043d\u043e\u0433\u043e \u0437\u0430\u0432\u0435\u0434\u0435\u043d\u0438\u044f (\u044f \u0443\u0447\u0443\u0441\u044c \u0432 \u0442\u0435\u0445\u043d\u0438\u043a\u0443\u043c\u0435, \u043e\u043f\u044b\u0442\u0430 \u043c\u0430\u043b\u043e, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u043f\u0440\u043e\u0441\u0442\u0438\u0442\u0435 \u043c\u043e\u0439 \u043d\u0443\u0431\u043e\u043a\u043e\u0434) \u0434\u043e\u0432\u0435\u0440\u0438\u043b\u0438 \u043c\u043d\u0435 \u0438 \u043c\u043e\u0435\u043c\u0443 \u043e\u0434\u043d\u043e\u0433\u0440\u0443\u043f\u043f\u043d\u0438\u043a\u0443. <br \/>  \u0423 \u043d\u0430\u0441 \u043f\u0440\u0430\u0432\u0438\u043b\u0430 \u043f\u0440\u043e\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u0442\u0430\u043a\u0438\u0435: \u0437\u0430 \u043c\u0435\u0441\u044f\u0446 \u0434\u043e \u043e\u043b\u0438\u043c\u043f\u0438\u0430\u0434\u044b \u0432\u044b\u0434\u0430\u044e\u0442\u0441\u044f 10 \u0437\u0430\u0434\u0430\u043d\u0438\u0439, \u0430 \u043f\u0435\u0440\u0435\u0434 \u043e\u043b\u0438\u043c\u043f\u0438\u0430\u0434\u043e\u0439 \u0431\u0443\u0434\u0435\u0442 \u0440\u0430\u043d\u0434\u043e\u043c\u043d\u043e \u0432\u044b\u0431\u0440\u0430\u043d\u043e \u043e\u0434\u043d\u043e \u0437\u0430\u0434\u0430\u043d\u0438\u0435 \u0438 \u0440\u043e\u0437\u0434\u0430\u043d\u043e \u0443\u0447\u0430\u0441\u0442\u043d\u0438\u043a\u0430\u043c. \u042f \u0436\u0438\u0432\u0443 \u043d\u0430 \u042e\u0433\u0435 \u0423\u043a\u0440\u0430\u0438\u043d\u044b, \u0430 \u0423\u043a\u0440\u0430\u0438\u043d\u0430 \u2013 \u0441\u0442\u0440\u0430\u043d\u0430 \u0441\u043f\u0435\u0446\u0438\u0444\u0438\u0447\u0435\u0441\u043a\u0430\u044f, \u0434\u0430\u0436\u0435 \u0432 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0438. \u041f\u0440\u0438 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0438 \u0437\u0430\u0434\u0430\u043d\u0438\u044f \u043d\u0443\u0436\u043d\u043e \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 Delphi\/C++\/C# (\u043e\u0434\u0438\u043d \u0438\u0437 \u043d\u0438\u0445), \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u043f\u0440\u0438\u044f\u0442\u043d\u044b\u0439 \u0438 \u0443\u0434\u043e\u0431\u043d\u044b\u0439 \u0438\u043d\u0442\u0435\u0440\u0444\u0435\u0439\u0441 (\u043a\u0440\u0430\u0441\u0438\u0432\u043e, \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0442\u0438\u0432\u043d\u043e, \u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u0434\u043e\u043b\u0436\u043d\u0430 \u043f\u0440\u0438\u0441\u0443\u0442\u0441\u0442\u0432\u043e\u0432\u0430\u0442\u044c \u0430\u0432\u0442\u043e\u043e\u0447\u0438\u0441\u0442\u043a\u0430, \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043a \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u043c\u0443 \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u043e\u043c\u0443 \u043f\u043e\u043b\u044e \u043f\u0440\u0438 \u043d\u0430\u0436\u0430\u0442\u0438\u0438 \u043d\u0430 Enter \u0438 \u0442.\u0434.), \u043f\u0435\u0440\u0435\u043f\u0438\u0441\u0430\u0442\u044c \u043a\u043e\u0434 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u043d\u0430 \u043b\u0438\u0441\u0442\u0438\u043a \u0438 \u043d\u0430\u0440\u0438\u0441\u043e\u0432\u0430\u0442\u044c \u0431\u043b\u043e\u043a-\u0441\u0445\u0435\u043c\u0443 (!) \u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435. \u0414\u0430-\u0434\u0430, \u0431\u043b\u043e\u043a \u0441\u0445\u0435\u043c\u0443 \u043a \u041e\u041e\u041f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435.<br \/>  \u041b\u0430\u0434\u043d\u043e, \u0441\u0443\u0442\u044c \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u043f\u043e\u0441\u0442\u0430 \u043d\u0435 \u0432 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0438 \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043d\u0438\u0438 \u0432 \u0423\u043a\u0440\u0430\u0438\u043d\u0435. \u042f \u0445\u043e\u0447\u0443 \u043f\u0440\u0438\u0432\u0435\u0441\u0442\u0438 \u043a\u043e\u0434 \u0441\u0432\u043e\u0438\u0445 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c, \u044f\u0432\u043b\u044f\u044e\u0449\u0438\u0445\u0441\u044f \u0440\u0435\u0448\u0435\u043d\u0438\u0435\u043c \u0437\u0430\u0434\u0430\u043d\u0438\u0439. \u0414\u043b\u044f \u0447\u0435\u0433\u043e \u044f \u044d\u0442\u043e \u0434\u0435\u043b\u0430\u044e? \u041c\u043d\u0435 \u0441 \u043e\u0434\u043d\u043e\u0433\u0440\u0443\u043f\u043f\u043d\u0438\u043a\u043e\u043c \u043f\u0440\u0438\u0448\u043b\u043e\u0441\u044c \u043e\u0447\u0435\u043d\u044c \u043c\u043d\u043e\u0433\u043e \u043f\u0435\u0440\u0435\u0440\u044b\u0442\u044c \u0432 \u043d\u0435\u0442\u0435, \u043f\u043e\u0441\u043f\u0440\u0430\u0448\u0438\u0432\u0430\u0442\u044c \u043d\u0430 \u0444\u043e\u0440\u0443\u043c\u0430\u0445 \u0438 \u043c\u0443\u0447\u0430\u0442\u044c \u0437\u043d\u0430\u043a\u043e\u043c\u044b\u0445 \u041f\u0420\u041e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u043e\u0432, \u0447\u0442\u043e\u0431\u044b \u0440\u0435\u0448\u0438\u0442\u044c \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0437\u0430\u0434\u0430\u043d\u0438\u044f, \u0442\u0430\u043a \u043a\u0430\u043a \u043e\u0442\u0432\u0435\u0442\u0430 \u043d\u0430 \u043f\u043e\u0432\u0435\u0440\u0445\u043d\u043e\u0441\u0442\u0438 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442\u0430 \u043d\u0435\u0442.  <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-178229","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/178229","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=178229"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/178229\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=178229"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=178229"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=178229"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}