<?xml version="1.0" encoding="windows-1251"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<atom:link href="https://proger.youbb.ru/export.php?type=rss" rel="self" type="application/rss+xml" />
		<title>Форум школьного программирования , решение задач на турбо паскале , решебник по информатике</title>
		<link>http://proger.youbb.ru/</link>
		<description>Форум школьного программирования , решение задач на турбо паскале , решебник по информатике</description>
		<language>ru-ru</language>
		<lastBuildDate>Wed, 10 May 2017 17:35:43 +0300</lastBuildDate>
		<generator>MyBB/mybb.ru</generator>
		<item>
			<title>Делаем деньги на перепродаже договорных матчей</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=34#p34</link>
			<description>&lt;p&gt;&lt;span style=&quot;color: red&quot;&gt;Слил с складчика hapnick, отправить спасибку можете битком: 15LfYx7ErFHodAuq4912cNB8t1cK8BbDo7, стоил мануал 80 штук, поэтому буду очень признателен за любые пожертвования.&lt;/span&gt;&lt;/p&gt;
						&lt;p&gt;Доброго времени суток, уважаемые пользователи складчика, спасибо за то что преобрели данный мануал, в нем будет описана схема заработка на настоящих договорных матчах, мы не будем никого кидать, а будем честно перепродавать матчи,&amp;#160; настоящие договорные матчи, постараюсь не заспамливать Вас кучей текста, а все кратко и по делу, еще раз спасибо за покупку.&lt;/p&gt;
						&lt;p&gt;Для начала, чтобы не отпугивать Вас сообщу сколько денег можно заработать, все конечно зависит от Вас, но Ваша прибыль будет расти в геометрической прогрессии&lt;br /&gt;На первый раз вы заработаете более 15 т.р, далее от 30 и более.&lt;br /&gt;Первые деньги прийдут в первый же месяц.&lt;/p&gt;
						&lt;p&gt;Ссылка на тему нужного нам продавца&lt;br /&gt;capper.in/index.php?threads/dogovornye-matchi-prodazha-luchshie-ceny-otzyvy.80/ ( Оригинальная ссылка )&lt;br /&gt;capper.online/index.php?threads/dogovornye-matchi-prodazha-luchshie-ceny-otzyvy.80/ ( зеркало для тех у кого не открывается )&lt;/p&gt;
						&lt;p&gt;У этого продавца мы будем тарить договорные, человек для меня проверенный с ним я уже работал, других вк можете даже не искать вы кроме обмана&amp;#160; самого себя и ваших покупателей ничего не найдете, у него сейчас 4 страницы отзывов, доверять можно, вообщем что мы будем делать. Он принимает яндекс с яндекс протекцией на любые суммы, поэтому мы ничем не рискуем, по сути деньги он получает после.&lt;/p&gt;
						&lt;p&gt;Наша работа будет разделятся на несколько возможны вариантов развития событий&lt;br /&gt;выбирйте каждый свой путь какой вам более удобен или нравится&lt;/p&gt;
						&lt;p&gt;Все разделы и категории содержат под разделы для расширения !&lt;br /&gt;1. Создаем продажник прогнозов&lt;/p&gt;
						&lt;p&gt;a) Группу вконтакте&lt;br /&gt;1. группу в однокласниках&lt;br /&gt;2. аккаунт в инстаграмме&lt;br /&gt;3. аккаунт в аске&lt;br /&gt;4. ютуб канал&lt;/p&gt;
						&lt;p&gt;б) Свой сайт&lt;br /&gt;1. форум&lt;br /&gt;2. лендинг&lt;/p&gt;
						&lt;p&gt;2. Заполнение контентом&lt;br /&gt;Заполняете свою группу или сайт, не обязательно пихать фейковую информацию, вы можете начать с нуля и собирать настоящие отзывы клиентов, ведь вы не будете их обманывать, рисуете аватар группы, заполняете инфо блоки и создаете f.a.q, устройте акцию для первой покупки, чтобы охватить как можно большу аудиторию, чем больше дненег соберете для старта, тем больше будет с следующим матчем.&lt;/p&gt;
						&lt;p&gt;3. Покупка договорного матча&lt;br /&gt;За покупкой вам нужно обратится к фанату, выбирайте матч по своему бюджету, если вы можете брать коэфициент больше, то берите его, чем больше коэфициент вы возьмете, тем больше ваши клиенты будут доверять вам на следующий раз&lt;br /&gt;Можете работать без гаранта, но для параноиков он всегда есть, только комисию в 5% великовата, как покупать объяснять не буду, но, говорите, что покупаете для себя.&lt;/p&gt;
						&lt;p&gt;4. Продажа договорного матча&lt;br /&gt;Теперь вам пора приступить к продаже для этого вам нужно спамить Вашей группой или сайтом вк, если вы используете сайт, то лучше делайте редерикт для этого создайте аккаунт на фриноме и вписывайте в поле перенаправление ссылку на Ваш сайт или группу, можно использовать связку с хостингом, чтобы считать уникальных посетителей, я делал это для того, чтобы считать сколько привели мои спамеры который я просто платил по 10% с клиента, в группу все на много проще, аккаунты вконтакте купить не сложно, пишите в тексте спама, что вы перепродаете матч, так же вы можете оставлять ссылку на оригинал, пользователи будут доверять вам так как вы не продаете что-то неизвестное, что-то, то что выдумали сами.&lt;/p&gt;
						&lt;p&gt;5. Подсчет прибыли и суммы&lt;br /&gt;вы купили договорной за 150$ по курсу 9000 т.р&lt;br /&gt;Перепродавайте его за 1.500 или 2.000 т.р, так вы сможете окупиться очень быстро, прошу заметить, что найти десяток человек с 2.000 т.р в разы легче, чем одного с 9.000 т.р, на жадности&amp;#160; мы и будем играть перепродавая договорные.&lt;br /&gt;Для того, чтобы окупить первоначальные вложения вам нужно 6 клиентов, если вы умете убеждать людей, то найдете шесть человек за пару часов, если вам неверят, что у Вас настоящие договорные покажите им оригинальный топик, их испугают цены и они будут покупать только у Вас.&lt;/p&gt;
						&lt;p&gt;6. Анонимизация&lt;br /&gt;Селлер постоянно следит за тем, чтобы договорные не уходили в паблик, поэтому всегда остерегайтесь и не палитесь лишний раз, не говорите, что вы перепродаете это очень важно, иначе на Вас будет написана жалоба в арбитраж и вы получите бан навсегда как это было со мной, используйте 1 аккаунт на 2-3 покупки, но не более, сделать новый не так сложно и набивайте пару постов, показывайте, что вы обычный пользователь.&lt;/p&gt;
						&lt;p&gt;7. Остальное&lt;br /&gt;Заставляйте клиентов после прохода договорняка оставлять отзыв в Вашей теме&lt;br /&gt;Провоцируйте клиента заплатить вам лишнюю тысячу, если вы провернете это с 10 клиентами вы сможете взять коэфициент больше, после того как соберете более 30.000 т.р можете сами начинать ставить.&lt;/p&gt;
						&lt;p&gt;Этот мануал можно маштабировать, возможно вам сейчас показалось, что вы отдали деньги не за что, но это не так, форум capper.in очень долго был закрытым форумом, а когда он открылся он нигде не афишировался, они прекрасно себя чувствуют в тени и вы врятли бы сами нашли их и додумались до такого, за тех поддержкой обращайтесь по контактам, буду помогать по возможности всем, могу скинутся если предоставите мне матч ( сам ставлю ) или помочь с группой или сайтом, могу продать мои готовые группы и один сайт !&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;color: red&quot;&gt;вырезал контакты продавца потому что он не давал тех. поддержку все кто начал брать бесплатно и уже не продавал сайт и группу, пожертвуйте на битки за слив схемы !&lt;/span&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (maxjawson)</author>
			<pubDate>Wed, 10 May 2017 17:35:43 +0300</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=34#p34</guid>
		</item>
		<item>
			<title>программа формирования файла записи структуры , бд в файле</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=33#p33</link>
			<description>&lt;p&gt;Написать программу.&lt;br /&gt;- количество автомобилей каждой марки&lt;br /&gt;- Владельца самого старого авто&lt;br /&gt;- фамилии владельцев и номера авто данной марки&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;const nmax=20;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; mar:array[1..6] of string=(&#039;audi&#039;,&#039;bmw&#039;,&#039;ford&#039;,&#039;nissan&#039;,&#039;toyota&#039;,&#039;volvo&#039;);&lt;br /&gt;type vladelez=record&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; familia:string;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; adress:string;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; avto:string;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; nomer:string;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; vypusk:1900..2000;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; end;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160;fail=file of vladelez;&lt;br /&gt;var f:fail;&lt;br /&gt;&amp;#160; &amp;#160; a:vladelez;&lt;br /&gt;&amp;#160; &amp;#160; cnt:array[1..6] of integer;&lt;br /&gt;&amp;#160; &amp;#160; n,i,k,imx:integer;&lt;br /&gt;&amp;#160; &amp;#160; mx:1900..2000;&lt;br /&gt;&amp;#160; &amp;#160; s:string;&lt;br /&gt;&amp;#160; &amp;#160; ch:char;&lt;br /&gt;begin&lt;br /&gt;clrscr;&lt;br /&gt;assign(f,&#039;auto.dat&#039;);&lt;br /&gt;rewrite(f);&lt;br /&gt;repeat&lt;br /&gt;write(&#039;Количество владельцев от 1 до &#039;,nmax,&#039; n=&#039;);&lt;br /&gt;readln(n);&lt;br /&gt;until n in [1..nmax];&lt;br /&gt;writeln(&#039;Введите данные о &#039;,n,&#039; владельцах:&#039;);&lt;br /&gt;for i:=1 to n do&lt;br /&gt; begin&lt;br /&gt;&amp;#160; writeln(&#039;Владелец &#039;,i);&lt;br /&gt;&amp;#160; with a do&lt;br /&gt;&amp;#160; &amp;#160;begin&lt;br /&gt;&amp;#160; &amp;#160; write(&#039; Фамилия: &#039;);readln(familia);&lt;br /&gt;&amp;#160; &amp;#160; write(&#039; Адрес: &#039;);readln(adress);&lt;br /&gt;&amp;#160; &amp;#160; writeln(&#039; Марка автомобиля:&#039;);&lt;br /&gt;&amp;#160; &amp;#160; writeln(&#039;&amp;#160; 1-audi 2-bmw 3-ford 4-nissan 5-toyota 6-volvo&#039;);&lt;br /&gt;&amp;#160; &amp;#160; repeat&lt;br /&gt;&amp;#160; &amp;#160; readln(k);&lt;br /&gt;&amp;#160; &amp;#160; until k in [1..6];&lt;br /&gt;&amp;#160; &amp;#160; avto:=mar[k];&lt;br /&gt;&amp;#160; &amp;#160; write(&#039; Номер: &#039;);readln(nomer);&lt;br /&gt;&amp;#160; &amp;#160; repeat&lt;br /&gt;&amp;#160; &amp;#160; write(&#039; Год выпуска 1900..2000: &#039;);&lt;br /&gt;&amp;#160; &amp;#160; readln(s);&lt;br /&gt;&amp;#160; &amp;#160; val(s,vypusk,k);&lt;br /&gt;&amp;#160; &amp;#160; until(k=0)and(vypusk&amp;gt;=1900)and(vypusk&amp;lt;=2000);&lt;br /&gt;&amp;#160; &amp;#160; write(f,a);&lt;br /&gt;&amp;#160; &amp;#160;end;&lt;br /&gt; end;&lt;br /&gt;clrscr;&lt;br /&gt;reset(f);&lt;br /&gt;writeln(&#039;Список автовладельцев:&#039;:30);&lt;br /&gt;writeln;&lt;br /&gt;writeln(&#039;----------------------------------------------------------&#039;);&lt;br /&gt;writeln(&#039;|&amp;#160; &amp;#160; Фамилия&amp;#160; &amp;#160; |&amp;#160; &amp;#160; &amp;#160;Адрес&amp;#160; &amp;#160; |&amp;#160; Марка&amp;#160; |&amp;#160; Номер&amp;#160; | Год |&#039;);&lt;br /&gt;writeln(&#039;----------------------------------------------------------&#039;);&lt;br /&gt;while not eof(f) do&lt;br /&gt; begin&lt;br /&gt;&amp;#160; read(f,a);&lt;br /&gt;&amp;#160; with a do&lt;br /&gt;&amp;#160; &amp;#160;begin&lt;br /&gt;&amp;#160; &amp;#160; gotoXY(1,whereY);write(&#039;| &#039;,familia);&lt;br /&gt;&amp;#160; &amp;#160; gotoXY(17,whereY);write(&#039;| &#039;,adress);&lt;br /&gt;&amp;#160; &amp;#160; gotoXY(32,whereY);write(&#039;| &#039;,avto);&lt;br /&gt;&amp;#160; &amp;#160; gotoXY(42,whereY);write(&#039;| &#039;,nomer);&lt;br /&gt;&amp;#160; &amp;#160; gotoXY(52,whereY);write(&#039;|&#039;,vypusk:5);&lt;br /&gt;&amp;#160; &amp;#160; gotoXY(58,whereY);writeln(&#039;|&#039;);&lt;br /&gt;&amp;#160; &amp;#160;end;&lt;br /&gt; end;&lt;br /&gt;writeln(&#039;----------------------------------------------------------&#039;);&lt;br /&gt;write(&#039;Press Enter...&#039;);&lt;br /&gt;readln;&lt;br /&gt;clrscr;&lt;br /&gt;for i:=1 to 6 do&lt;br /&gt;cnt[1]:=0;&lt;br /&gt;seek(f,0);&lt;br /&gt;while not eof(f) do&lt;br /&gt; begin&lt;br /&gt;&amp;#160; read(f,a);&lt;br /&gt;&amp;#160; for i:=1 to 6 do&lt;br /&gt;&amp;#160; if mar[i]=a.avto then inc(cnt[i]);&lt;br /&gt; end;&lt;br /&gt;writeln(&#039;Количество автомобилей каждой марки:&#039;);&lt;br /&gt;for i:=1 to 6 do&lt;br /&gt;writeln(mar[i],&#039;=&#039;,cnt[i]);&lt;br /&gt;mx:=2000;&lt;br /&gt;s:=&#039;&#039;;&lt;br /&gt;for i:=0 to filesize(f)-1 do&lt;br /&gt; begin&lt;br /&gt;&amp;#160; seek(f,i);&lt;br /&gt;&amp;#160; read(f,a);&lt;br /&gt;&amp;#160; if a.vypusk&amp;lt;mx then&lt;br /&gt;&amp;#160; &amp;#160;begin&lt;br /&gt;&amp;#160; &amp;#160; mx:=a.vypusk;&lt;br /&gt;&amp;#160; &amp;#160; s:=a.familia;&lt;br /&gt;&amp;#160; &amp;#160;end;&lt;br /&gt; end;&lt;br /&gt;writeln(&#039;Влоделец самого старого авто &#039;,s);&lt;br /&gt;writeln;&lt;br /&gt;writeln(&#039;Поиск владельцев по марке авто&#039;);&lt;br /&gt;repeat&lt;br /&gt;write(&#039;Марка: &#039;);&lt;br /&gt;readln(s);&lt;br /&gt;k:=0;&lt;br /&gt;seek(f,0);&lt;br /&gt;while not eof(f) do&lt;br /&gt; begin&lt;br /&gt;&amp;#160; read(f,a);&lt;br /&gt;&amp;#160; if a.avto=s then&lt;br /&gt;&amp;#160; &amp;#160;begin&lt;br /&gt;&amp;#160; &amp;#160; k:=1;&lt;br /&gt;&amp;#160; &amp;#160; writeln(a.familia,&#039;&amp;#160; &#039;,a.nomer);&lt;br /&gt;&amp;#160; &amp;#160;end;&lt;br /&gt; end;&lt;br /&gt;if k=0 then writeln(&#039;Такой марки нет&#039;);&lt;br /&gt;writeln(&#039;Продолжить поиск y/Y&#039;);&lt;br /&gt;readln(ch);&lt;br /&gt;until UpCase(ch)&amp;lt;&amp;gt;&#039;Y&#039;;&lt;br /&gt;close(f);&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Thu, 26 Sep 2013 22:54:40 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=33#p33</guid>
		</item>
		<item>
			<title>Вычислить сумму по формуле</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=32#p32</link>
			<description>&lt;p&gt;s=1+(1/2)+(1/4)+(1/8)... &lt;br /&gt;&lt;strong&gt;var&lt;br /&gt;&amp;#160; s: real;&lt;br /&gt;&amp;#160; i, n: longint;&lt;/p&gt;
						&lt;p&gt;begin&lt;br /&gt;&amp;#160; Write(&#039;N = &#039;);&lt;br /&gt;&amp;#160; Readln(n);&lt;br /&gt;&amp;#160; for i := 0 to n - 1 do&lt;br /&gt;&amp;#160; &amp;#160; s := s + 1 / (1 shl i);&lt;br /&gt;&amp;#160; Writeln(&#039;S = &#039;, s:0:5);&lt;br /&gt;&amp;#160; Readln&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Thu, 26 Sep 2013 22:51:27 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=32#p32</guid>
		</item>
		<item>
			<title>Найти макс и мин элементы</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=31#p31</link>
			<description>&lt;p&gt;В массиве S найдите произведение максимального и минимального элементов и их порядковые номера.&lt;br /&gt;&lt;strong&gt;var&lt;br /&gt;&amp;#160; i , min, max, i_min, i_max, a : longint;&lt;/p&gt;
						&lt;p&gt;begin&lt;br /&gt;&amp;#160; min := maxlongint div 2;&lt;br /&gt;&amp;#160; max := -min;&lt;br /&gt;&amp;#160; for i := 1 to 7 do&lt;br /&gt;&amp;#160; begin&lt;br /&gt;&amp;#160; &amp;#160; read(a);&lt;br /&gt;&amp;#160; &amp;#160; if (a &amp;lt; min) then&lt;br /&gt;&amp;#160; &amp;#160; begin&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; min := a;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; i_min := i;&lt;br /&gt;&amp;#160; &amp;#160; end;&lt;br /&gt;&amp;#160; &amp;#160; if (a &amp;gt; max) then&lt;br /&gt;&amp;#160; &amp;#160; begin&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; max := a;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; i_max := i;&lt;br /&gt;&amp;#160; &amp;#160; end;&lt;br /&gt;&amp;#160; end;&lt;br /&gt;&amp;#160; writeln(min * max);&lt;br /&gt;&amp;#160; writeln(i_min);&lt;br /&gt;&amp;#160; writeln(i_max);&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Thu, 26 Sep 2013 22:50:25 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=31#p31</guid>
		</item>
		<item>
			<title>Пример работы с расчетом</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=30#p30</link>
			<description>&lt;p&gt;1.Просит ввести цену книги&lt;br /&gt;2.Просит ввести сумму, которую заплатил покупатель&lt;br /&gt;3.Высчитывает выдаваемую сумму, если такая есть.&lt;br /&gt;4. Если сумма правильная, то выдает &amp;quot;Спасибо&amp;quot;.&lt;br /&gt;5.Если сумму меньше, тогда выдаёт сообщение о запросе недостающих денег.&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;Var z,s,r:real;&lt;br /&gt;Begin&lt;br /&gt;&amp;#160; &amp;#160; write(&#039;Цена книги: &#039;);readln(z);&lt;br /&gt;&amp;#160; &amp;#160; write(&#039;Сумма,которую заплатил покупатель: &#039;);readln(s);&lt;br /&gt;&amp;#160; &amp;#160; While z-s&amp;lt;&amp;gt;0 do&lt;br /&gt;&amp;#160; &amp;#160; Begin&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; writeln(&#039;Недостоющее кол-во денег = &#039;,z-s);&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; write(&#039;Введите недостающее кол-во денег: &#039;);readln(r);&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; s:=s+r;&lt;br /&gt;&amp;#160; &amp;#160; End;&lt;br /&gt;&amp;#160; &amp;#160; writeln(&#039;Спасибо&#039;);&lt;br /&gt;&amp;#160; &amp;#160; readln;&lt;br /&gt;End.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Thu, 26 Sep 2013 22:47:06 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=30#p30</guid>
		</item>
		<item>
			<title>Работа с массивом , проверка произведений на интервал</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=29#p29</link>
			<description>&lt;p&gt;Вывести на экран номера строк, в которых произведение элементов попадает в интервал [А ; В], а также соответствующие значения произведения. &lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;const nmax=15;&lt;br /&gt;var x:array[1..nmax,1..nmax] of real;&lt;br /&gt;&amp;#160; &amp;#160; m,n,i,j,k:byte;&lt;br /&gt;&amp;#160; &amp;#160; a,b,p:real;&lt;br /&gt;begin&lt;br /&gt;clrscr;&lt;br /&gt;randomize;&lt;br /&gt;repeat&lt;br /&gt;write(&#039;Количество строк до &#039;,nmax,&#039; m=&#039;);&lt;br /&gt;readln(m);&lt;br /&gt;until m in [1..nmax];&lt;br /&gt;repeat&lt;br /&gt;write(&#039;Количество столбцов до &#039;,nmax,&#039; n=&#039;);&lt;br /&gt;readln(n);&lt;br /&gt;until n in [1..nmax];&lt;br /&gt;writeln(&#039;Исходная матрица:&#039;);&lt;br /&gt;for i:=1 to m do&lt;br /&gt; begin&lt;br /&gt;&amp;#160; for j:=1 to n do&lt;br /&gt;&amp;#160; &amp;#160;begin&lt;br /&gt;&amp;#160; &amp;#160; x[i,j]:=9*random;&lt;br /&gt;&amp;#160; &amp;#160; write(x[i,j]:5:2);&lt;br /&gt;&amp;#160; &amp;#160;end;&lt;br /&gt;&amp;#160; writeln;&lt;br /&gt; end;&lt;br /&gt;writeln;&lt;br /&gt;repeat&lt;br /&gt;writeln(&#039;Введите интервал чисел a&amp;lt;b&#039;);&lt;br /&gt;readln(a,b);&lt;br /&gt;until a&amp;lt;b;&lt;br /&gt;k:=0;&lt;br /&gt;for i:=1 to m do&lt;br /&gt; begin&lt;br /&gt;&amp;#160; p:=1;&lt;br /&gt;&amp;#160; for j:=1 to n do&lt;br /&gt;&amp;#160; p:=p*x[i,j];&lt;br /&gt;&amp;#160; if(p&amp;gt;=a)and(p&amp;lt;=b) then&lt;br /&gt;&amp;#160; &amp;#160;begin&lt;br /&gt;&amp;#160; &amp;#160; k:=1;&lt;br /&gt;&amp;#160; &amp;#160; writeln(&#039;Строка &#039;,i,&#039; произведение=&#039;,p:0:2)&lt;br /&gt;&amp;#160; &amp;#160;end&lt;br /&gt; end;&lt;br /&gt;if k=0 then write(&#039;Строк с произведением от &#039;,a:0:2,&#039; до &#039;,b:0:2,&#039; нет&#039;);&lt;br /&gt;readln&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Thu, 26 Sep 2013 22:45:16 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=29#p29</guid>
		</item>
		<item>
			<title>Произвести сдвиг элементов вектора A(n)</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=28#p28</link>
			<description>&lt;p&gt;Произвести сдвиг элементов вектора A(n) на к позиций влево так, что на место a[1] станет a[k+1], на место a[n-k] станет a[n], на место a[n-k+1] станет a[1], на место&lt;br /&gt;a[n-k+2] станет a[2], на место a[n] станет a[k].&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;var i, k, n: integer;&lt;br /&gt;&amp;#160; &amp;#160; a, b: array [1..20] of integer;&lt;/p&gt;
						&lt;p&gt;begin&lt;br /&gt;&amp;#160; randomize;&lt;br /&gt;&amp;#160; repeat&lt;br /&gt;&amp;#160; &amp;#160; write(&#039;Enter 0 &amp;lt; n &amp;lt;= 20, n = &#039;);&lt;br /&gt;&amp;#160; &amp;#160; readln(n);&lt;br /&gt;&amp;#160; until n &amp;lt;= 20;&lt;br /&gt;&amp;#160; repeat&lt;br /&gt;&amp;#160; &amp;#160; write(&#039;Enter 0 &amp;lt; k &amp;lt;= 20, k = &#039;);&lt;br /&gt;&amp;#160; &amp;#160; readln(k);&lt;br /&gt;&amp;#160; until (k &amp;lt;= 20) and (k &amp;gt; 0);&lt;br /&gt;&amp;#160; k := k - 1;&lt;br /&gt;&amp;#160; writeln(&#039;Array:&#039;);&lt;br /&gt;&amp;#160; for i := 1 to n do&lt;br /&gt;&amp;#160; &amp;#160; begin&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; a[i] := random(200)- 100;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; write(a[i]:3, &#039; &#039;)&lt;br /&gt;&amp;#160; &amp;#160; end;&lt;br /&gt;&amp;#160; writeln;&lt;br /&gt;&amp;#160; writeln(&#039;Shifted array: &#039;);&lt;br /&gt;&amp;#160; for i := 1 to n do&lt;br /&gt;&amp;#160; &amp;#160; begin&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; b[i] := a[(i + k) mod n + 1];&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; write(b[i]:3, &#039; &#039;)&lt;br /&gt;&amp;#160; &amp;#160; end;&lt;br /&gt;&amp;#160; readln&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Thu, 26 Sep 2013 22:42:28 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=28#p28</guid>
		</item>
		<item>
			<title>Работа с файлом на турбо паскале , генератор чисел</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=27#p27</link>
			<description>&lt;p&gt;Записать файл последовательного доступа N действительных чисел. Найти разность первого и последнего компонентов файла. &lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;uses crt;&lt;br /&gt;var f:text;&lt;br /&gt;&amp;#160; &amp;#160; n,i:integer;&lt;br /&gt;&amp;#160; &amp;#160; a,b,c:real;&lt;br /&gt;begin&lt;br /&gt;clrscr;&lt;br /&gt;randomize;&lt;br /&gt;repeat&lt;br /&gt;write(&#039;n&amp;gt;1 n=&#039;);&lt;br /&gt;readln(n);&lt;br /&gt;until n&amp;gt;1;&lt;br /&gt;assign(f,&#039;fail.txt&#039;);&lt;br /&gt;rewrite(f);&lt;br /&gt;for i:=1 to n do&lt;br /&gt; begin&lt;br /&gt;&amp;#160; a:=10*random;&lt;br /&gt;&amp;#160; write(f,&#039; &#039;,a:0:2);&lt;br /&gt; end;&lt;br /&gt;{close(f);}&lt;br /&gt;reset(f);&lt;br /&gt;read(f,a);&lt;br /&gt;while not eof(f) do&lt;br /&gt;read(f,b);&lt;br /&gt;close(f);&lt;br /&gt;c:=a-b;&lt;br /&gt;write(&#039;Разность первого и последнего=&#039;,c:0:2);&lt;br /&gt;readln&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Thu, 26 Sep 2013 22:39:18 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=27#p27</guid>
		</item>
		<item>
			<title>Одномерный массив , умножение на число</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=26#p26</link>
			<description>&lt;p&gt;Умножение любого двухзначного числа на 11&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;var&lt;br /&gt;&amp;#160; i: integer;&lt;/p&gt;
						&lt;p&gt;begin&lt;br /&gt;&amp;#160; repeat&lt;br /&gt;&amp;#160; &amp;#160; Write(&#039;Введите 2-значное число: &#039;);&lt;br /&gt;&amp;#160; &amp;#160; Readln(i)&lt;br /&gt;&amp;#160; until i in [10..99];&lt;br /&gt;&amp;#160; Writeln(i, &#039; * 11 = &#039;, i * 11);&lt;br /&gt;&amp;#160; Readln&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Thu, 26 Sep 2013 22:38:10 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=26#p26</guid>
		</item>
		<item>
			<title>Pascal Формула</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=25#p25</link>
			<description>&lt;p&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://www.cyberforum.ru/attachments/310816d1380199150t&quot; alt=&quot;http://www.cyberforum.ru/attachments/310816d1380199150t&quot; /&gt;&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;var x,y:real;&lt;br /&gt;begin&lt;br /&gt;&amp;#160; readln(x,y);&lt;br /&gt;&amp;#160; writeln(x-10*sin(x)+abs((1/exp(ln(x)*(y-1))-1/exp(ln(x)*(y-1)))/2));&lt;br /&gt;&amp;#160; readln&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Thu, 26 Sep 2013 22:36:14 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=25#p25</guid>
		</item>
		<item>
			<title>Нужно написать программу массив  удаление</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=24#p24</link>
			<description>&lt;p&gt;Массив из десяти элементов . Нужно везде после нуля вставить восьмерку и удалить все двойки 2 &lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;uses crt;&lt;br /&gt;const n=10;&lt;br /&gt;var a:array[1..2*n] of integer;&lt;br /&gt;&amp;#160; &amp;#160; m,i,j:byte;&lt;br /&gt;begin&lt;br /&gt;randomize;&lt;br /&gt;writeln(&#039;Исходный массив&#039;);&lt;br /&gt;for i:=1 to n do&lt;br /&gt; begin&lt;br /&gt;&amp;#160; a[i]:=random(8);&lt;br /&gt;&amp;#160; write(a[i]:3)&lt;br /&gt; end;&lt;br /&gt;writeln;&lt;br /&gt;m:=n;&lt;br /&gt;i:=1;&lt;br /&gt;while i&amp;lt;=m do&lt;br /&gt;if a[i]=2 then&lt;br /&gt; begin&lt;br /&gt;&amp;#160; for j:=i to m-1 do&lt;br /&gt;&amp;#160; a[j]:=a[j+1];&lt;br /&gt;&amp;#160; m:=m-1&lt;br /&gt; end&lt;br /&gt;else if a[i]=0 then&lt;br /&gt; begin&lt;br /&gt;&amp;#160; m:=m+1;&lt;br /&gt;&amp;#160; for j:=m downto i+2 do&lt;br /&gt;&amp;#160; a[j]:=a[j-1];&lt;br /&gt;&amp;#160; a[i+1]:=8;&lt;br /&gt;&amp;#160; i:=i+2&lt;br /&gt; end&lt;br /&gt;else i:=i+1;&lt;br /&gt;writeln(&#039;Результат&#039;);&lt;br /&gt;for i:=1 to m do&lt;br /&gt;write(a[i]:3);&lt;br /&gt;readln&lt;br /&gt;end.&lt;/p&gt;
						&lt;p&gt;	&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Thu, 26 Sep 2013 22:32:39 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=24#p24</guid>
		</item>
		<item>
			<title>Составить циклический алгоритм и программу для вычисления результата</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=23#p23</link>
			<description>&lt;p&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://www.cyberforum.ru/attachments/308168d1379441220&quot; alt=&quot;http://www.cyberforum.ru/attachments/308168d1379441220&quot; /&gt;&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;var&lt;br /&gt;&amp;#160; p,x: real;&lt;br /&gt;&amp;#160; i,n,k: integer;&lt;br /&gt;begin&lt;br /&gt;&amp;#160; repeat&lt;br /&gt;&amp;#160; &amp;#160; write(&#039;Введите x, n (x&amp;gt;0; n&amp;gt;0): &#039;);&lt;br /&gt;&amp;#160; &amp;#160; readln(x,n);&lt;br /&gt;&amp;#160; until (n&amp;gt;0) and (x&amp;gt;0);&lt;br /&gt;&amp;#160; p:=1;&lt;br /&gt;&amp;#160; for k:=1 to n do&lt;br /&gt;&amp;#160; &amp;#160; p:=p*((k*ln(x)+3/7)/exp(1/k*ln(exp((k-1)*x))));&lt;br /&gt;&amp;#160; p:=sqrt(abs(x))-p+1;&lt;br /&gt;&amp;#160; writeln(&#039;P = &#039;,p);&lt;br /&gt;&amp;#160; readln;&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Sat, 21 Sep 2013 21:04:53 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=23#p23</guid>
		</item>
		<item>
			<title>Написать программу которая по введенному значению аргумента вычисляет</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=22#p22</link>
			<description>&lt;p&gt;Написать программу которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.Параметр R вводится с клавиатуры&lt;br /&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://www.cyberforum.ru/images/misc/lightbox_progress.gif&quot; alt=&quot;http://www.cyberforum.ru/images/misc/lightbox_progress.gif&quot; /&gt;&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;program Curve;&lt;/p&gt;
						&lt;p&gt;var x, y, r: real;&lt;/p&gt;
						&lt;p&gt;begin&lt;br /&gt;&amp;#160; repeat&lt;br /&gt;&amp;#160; &amp;#160; write(&#039;R = &#039;);&lt;br /&gt;&amp;#160; &amp;#160; readln(r)&lt;br /&gt;&amp;#160; until r &amp;gt;= 0;&lt;br /&gt;&amp;#160; write(&#039;x = &#039;);&lt;br /&gt;&amp;#160; readln(x);&lt;br /&gt;&amp;#160; if (x &amp;lt; -6 - r) or (x &amp;gt; 9) then y := 0&lt;br /&gt;&amp;#160; &amp;#160; else if x &amp;lt; -6 then y := -sqrt(sqr(r) - sqr(x + 6))&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; else if x &amp;lt; -3 then y := x + 3&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; else if x &amp;lt; 0 then y := sqrt(sqr(3) - sqr(x))&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; else if x &amp;lt; 3 then y := 3 - x&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; else if x &amp;lt;= 9 then y := (x - 3) / 2;&lt;br /&gt;&amp;#160; writeln(&#039;y = &#039;, y);&lt;br /&gt;&amp;#160; readln&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Sat, 21 Sep 2013 21:03:58 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=22#p22</guid>
		</item>
		<item>
			<title>Попадает ли точка с заданными координатами x, y в область, закрашенную</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=21#p21</link>
			<description>&lt;p&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://www.cyberforum.ru/attachments/70241d1301661028&quot; alt=&quot;http://www.cyberforum.ru/attachments/70241d1301661028&quot; /&gt;&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;...&lt;br /&gt;if (y&amp;lt;=0) and (x&amp;lt;=0) and (y&amp;lt;=sqrt(sqr(r)-sqr(x)) or&lt;br /&gt;&amp;#160; (y&amp;gt;=sqr(x-1)) and (x&amp;gt;=0) and (y&amp;lt;=sqrt(sqr(r)-sqr(x)) then&lt;br /&gt;&amp;#160; writeln(&#039;yes&#039;) &lt;br /&gt;&amp;#160; &amp;#160;else writeln(&#039;no&#039;);&lt;br /&gt;...&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Sat, 21 Sep 2013 21:02:18 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=21#p21</guid>
		</item>
		<item>
			<title>Составить алгоритм вычисления высоты треугольника</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=20#p20</link>
			<description>&lt;p&gt;Составить алгоритм вычисления высоты треугольника, если е-го площадь S, а основание больше высоты на величину a. &lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;uses crt;&lt;br /&gt;var s,h,a:real;&lt;br /&gt;begin&lt;br /&gt;clrscr;&lt;br /&gt;write(&#039;Vvedite S i a: &#039;);&lt;br /&gt;readln(s,a);&lt;br /&gt;{исходное уравнение S=h*(h+a)/2}&lt;br /&gt;h:=(-a+sqrt(a*a+8*s))/2;&lt;br /&gt;write(&#039;h= &#039;,h:0:2);&lt;br /&gt;readkey&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Sat, 21 Sep 2013 21:00:04 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=20#p20</guid>
		</item>
		<item>
			<title>Написать программу произвольную матрицу размерностью 4х4!</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=19#p19</link>
			<description>&lt;p&gt;Написать программу произвольную матрицу размерностью 4х4! &lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;const&lt;br /&gt;&amp;#160; n = 4;&lt;/p&gt;
						&lt;p&gt;var&lt;br /&gt;&amp;#160; x: array [1..n, 1..n] of integer;&lt;br /&gt;&amp;#160; i, j: byte;&lt;/p&gt;
						&lt;p&gt;begin&lt;br /&gt;&amp;#160; Randomize;&lt;br /&gt;&amp;#160; for i := 1 to n do&lt;br /&gt;&amp;#160; begin&lt;br /&gt;&amp;#160; &amp;#160; for j := 1 to n do&lt;br /&gt;&amp;#160; &amp;#160; begin&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; x[i, j] := Random(9) + 1;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; Write(x[i, j]:3);&lt;br /&gt;&amp;#160; &amp;#160; end;&lt;br /&gt;&amp;#160; &amp;#160; Writeln&lt;br /&gt;&amp;#160; end;&lt;br /&gt;&amp;#160; Readln&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Sat, 21 Sep 2013 20:58:34 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=19#p19</guid>
		</item>
		<item>
			<title>Найти сумму их периметров</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=18#p18</link>
			<description>&lt;p&gt;задача:&lt;br /&gt;даны основания и высоты двух равнобедренных трапеций.&lt;br /&gt;Найти сумму их периметров (ОПРЕДЕЛИТЬ ФУНКЦИЮ для расчета периметра равнобедренной трапеции по ее основаниям и высоте)&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;function perim(a,b,h: integer): real;&lt;br /&gt;var p: real;&lt;br /&gt;begin&lt;br /&gt;&amp;#160; p:=h*(a+b)/2;&lt;br /&gt;&amp;#160; perim:=p;&lt;br /&gt;end;&lt;/p&gt;
						&lt;p&gt;var&lt;br /&gt;&amp;#160; x1,x2,h1: integer;&lt;br /&gt;&amp;#160; y1,y2,h2: integer;&lt;br /&gt;&amp;#160; p1,p2: real;&lt;br /&gt;begin&lt;br /&gt;&amp;#160; write(&#039;Введите 1-е основание трапеции: &#039;);&lt;br /&gt;&amp;#160; readln(x1);&lt;br /&gt;&amp;#160; write(&#039;Введите 2-е основание трапеции: &#039;);&lt;br /&gt;&amp;#160; readln(x2);&lt;br /&gt;&amp;#160; write(&#039;Введите высоту трапеции: &#039;);&lt;br /&gt;&amp;#160; readln(h1);&lt;br /&gt;&amp;#160; &lt;br /&gt;&amp;#160; writeln(&#039;Периметр 1-й трапеции: &#039;,perim(x1,x2,h1):6:2);&lt;br /&gt;&amp;#160; &lt;br /&gt;&amp;#160; write(&#039;Введите 1-е основание трапеции: &#039;);&lt;br /&gt;&amp;#160; readln(y1);&lt;br /&gt;&amp;#160; write(&#039;Введите 2-е основание трапеции: &#039;);&lt;br /&gt;&amp;#160; readln(y2);&lt;br /&gt;&amp;#160; write(&#039;Введите высоту трапеции: &#039;);&lt;br /&gt;&amp;#160; readln(h2);&lt;br /&gt;&amp;#160; &lt;br /&gt;&amp;#160; writeln(&#039;Периметр 2-й трапеции: &#039;,perim(y1,y2,h2):6:2);&lt;br /&gt;&amp;#160; readln;&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Sat, 21 Sep 2013 20:57:39 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=18#p18</guid>
		</item>
		<item>
			<title>Решение системы уравнения на паскале</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=17#p17</link>
			<description>&lt;p&gt;В общем проблема следующая, нужно написать задачу на решение системы методом простой итерации.&lt;br /&gt;Был бы очень признателен, если бы помогли. Очень нужно.&lt;/p&gt;
						&lt;p&gt;Следующая система уравнений:&lt;/p&gt;
						&lt;p&gt;0.60x1-0.35x2-0.25x3=1.83&lt;br /&gt;0.21x1-0.45x2-0.20x3=1.97&lt;br /&gt;0.30x1+0.25x2+0.43x3=0.32&lt;/p&gt;
						&lt;p&gt;Чтобы например найти x1 нужно (1.83+0.35*x2+0.25*3)/0.6&lt;br /&gt;И так далее. Нам нужно найти значения x1, x2, x3 и количество итераций.&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;program new;&lt;br /&gt;var&lt;br /&gt;x, x1,y,y1,z,z1,e,p:real;&lt;br /&gt;n:integer;&lt;br /&gt;begin&lt;br /&gt;n:=0;&lt;br /&gt;writeln(&#039;vvedite x,y,z,e&#039;);&lt;br /&gt;readln(x,y,z,e);&lt;br /&gt;repeat&lt;br /&gt;x1:=(1.83+0.35*y+0.25*z)/0.6;&lt;br /&gt;y1:=(1.97-0.21*x+0.20*z)/-0.45;&lt;br /&gt;z1:=(0.32-0.30*x-0.25*y)/0.43;&lt;/p&gt;
						&lt;p&gt;p:=sqrt(sqr(x1-x)+sqr(y1-y)+sqr(z1-z));&lt;/p&gt;
						&lt;p&gt;x:=x1;&lt;br /&gt;y:=y1;&lt;br /&gt;z:=z1;&lt;br /&gt;n:=n+1;&lt;br /&gt;until p&amp;lt;=e;&lt;/p&gt;
						&lt;p&gt;begin&lt;br /&gt;writeln(&#039;x= &#039; ,x:3:3,&#039; y= &#039; ,y:3:3,&#039; z= &#039; ,z:3:3,&#039;&amp;#160; n= &#039;,n);&lt;br /&gt;readln;&lt;br /&gt;end;&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Sat, 21 Sep 2013 20:54:43 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=17#p17</guid>
		</item>
		<item>
			<title>Задание - определить свой возраст в днях</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=16#p16</link>
			<description>&lt;p&gt;Задание - определить свой возраст в днях &lt;br /&gt;Ты вводишь свой возраст.&lt;br /&gt;Переменную с возрастом записываешь в &amp;quot;выражение&amp;quot; цикла, инициализация 1, инкремент&lt;br /&gt;В инструкции пишешь 1 год равен 365 дней&lt;br /&gt;Возраст равен 1 год + 1год и т. д.&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;program old;&lt;br /&gt;var a,b,c : integer;&lt;br /&gt;begin&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160;writeln(&#039;Enter you age&#039;);&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160;readln(a);&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160;b := 365;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160;c:= (a div 4) + (a * b);&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160;writeln(&#039;You lived day: &#039;,c);&lt;br /&gt; readln;&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Sat, 21 Sep 2013 20:53:23 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=16#p16</guid>
		</item>
		<item>
			<title>Напечатать число S= max(a,min(c,b) С формул которые указанные на карти</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=15#p15</link>
			<description>&lt;p&gt;Напечатать число S= max(a,min(c,b) С формул которые указанные на картинке&lt;br /&gt;&lt;strong&gt;&lt;br /&gt;Program pr1;&lt;br /&gt;var&amp;#160; l,k: integer;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160;a,b,c,min,s:real;&lt;br /&gt;begin&lt;br /&gt;Write(&#039;l=&#039;);&lt;br /&gt;Readln(l);&lt;br /&gt;if l=0 then&lt;br /&gt; begin&lt;br /&gt;&amp;#160; write(&#039;b не определено&#039;);&lt;br /&gt;&amp;#160; readln;&lt;br /&gt;&amp;#160; exit&lt;br /&gt; end;&lt;br /&gt;Write(&#039;k=&#039;);&lt;br /&gt;Readln(k);&lt;br /&gt;a:=(2*l-3*k)/5;&lt;br /&gt;b:=(l+2)/l;&lt;br /&gt;c:=l*k-10;&lt;br /&gt;If c&amp;lt;b then min:=c Else min:=b;&lt;br /&gt;If min&amp;gt;a then s:=min else s:=a;&lt;br /&gt;writeln(&#039;S=&#039;,s);&lt;br /&gt;readln&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Sat, 21 Sep 2013 20:52:10 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=15#p15</guid>
		</item>
		<item>
			<title>Как найти максимальное число из пяти чисел.</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=14#p14</link>
			<description>&lt;p&gt;Как найти максимальное число из пяти чисел.&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;var&lt;br /&gt;&amp;#160; a, i, max: integer;&lt;/p&gt;
						&lt;p&gt;begin&lt;br /&gt;&amp;#160; Writeln(&#039;Введите 5 чисел: &#039;);&lt;br /&gt;&amp;#160; for i := 1 to 5 do&lt;br /&gt;&amp;#160; begin&lt;br /&gt;&amp;#160; &amp;#160; Readln(a);&lt;br /&gt;&amp;#160; &amp;#160; if a &amp;gt; max then&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; max := a;&lt;br /&gt;&amp;#160; end;&lt;br /&gt;&amp;#160; Writeln(&#039;MAX = &#039;, max);&lt;br /&gt;&amp;#160; Readln&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Sat, 21 Sep 2013 20:50:41 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=14#p14</guid>
		</item>
		<item>
			<title>принадлежит ли точка М области, указанной на рисунке</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=13#p13</link>
			<description>&lt;p&gt;Составить программу в которой с пульта вводяться два действительных числа х и у (являющиеся коорд.точки М на плоскости.). Определяется ,принадлежит ли точка М области, указанной на рисунке. &lt;br /&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://www.cyberforum.ru/attachments/308651d1379602382&quot; alt=&quot;http://www.cyberforum.ru/attachments/308651d1379602382&quot; /&gt;&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;var x,y:real;&lt;br /&gt;begin&lt;br /&gt;&amp;#160; writeln(&#039;x, y&#039;);readln(x,y);&lt;br /&gt;&amp;#160; if (x&amp;gt;=0) and (y&amp;gt;=0)and (sqr(x-1)+sqr(y)&amp;lt;=1)&lt;br /&gt;&amp;#160; then writeln(&#039;Принадлежит&#039;)&lt;br /&gt;&amp;#160; else writeln(&#039;Не принадлежит&#039;);&lt;br /&gt;&amp;#160; readln&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Sat, 21 Sep 2013 20:49:42 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=13#p13</guid>
		</item>
		<item>
			<title>Найти наибольшее значение функции f(x) на заданном интервале.</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=12#p12</link>
			<description>&lt;p&gt;Найти наибольшее значение функции f(x) на заданном интервале.y=e^(-2*x)*sin(2*pi*x) {(-2*x)-степень}&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;var x,a,b,mx,dx,y: real;&lt;br /&gt;&amp;#160; &amp;#160; i,n: integer;&lt;br /&gt;begin&lt;br /&gt;writeln (&#039;a,b,n&#039;);&lt;br /&gt;readln (a,b,n);&lt;br /&gt;x:=a;&lt;br /&gt;dx:=(b-a)/(n-1);&lt;br /&gt;mx:=exp(-2*x)*sin(2*pi*x);&lt;br /&gt;for i:=1 to n do&lt;br /&gt; begin&lt;br /&gt;&amp;#160; y:=exp(-2*x)*sin(2*pi*x);&lt;br /&gt;&amp;#160; writeln (&#039;y:=&#039;,y:8:3);&lt;br /&gt;&amp;#160; if y&amp;gt;mx then mx:=y;&lt;br /&gt;&amp;#160; x:=x+dx;&lt;br /&gt; end;&lt;br /&gt;writeln (&#039;naib znachenie mx=&#039;,mx:8:3);&lt;br /&gt;readln;&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Fri, 20 Sep 2013 23:10:13 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=12#p12</guid>
		</item>
		<item>
			<title>Дан массив 7 х 5. Определить в какой строке находится наибольший из ми</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=11#p11</link>
			<description>&lt;p&gt;Дан массив 7 х 5. Определить в какой строке находится наибольший из минимальных элементов каждой строке.&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;uses crt;&lt;/p&gt;
						&lt;p&gt;const&lt;br /&gt;&amp;#160; nmax = 7;&lt;br /&gt;&amp;#160; mmax = 5;&lt;/p&gt;
						&lt;p&gt;var&lt;br /&gt;&amp;#160; A : array [1..nmax, 1..mmax] of integer;&lt;br /&gt;&amp;#160; i, j : integer;&lt;br /&gt;&amp;#160; min, imin, maxmin, imaxmin : integer;&lt;br /&gt;&amp;#160; &lt;br /&gt;begin&lt;br /&gt;&amp;#160; ClrScr;&lt;br /&gt;&amp;#160; Writeln(&#039;Введите элементы массива: &#039;);&lt;br /&gt;&amp;#160; for i := 1 to nmax do&lt;br /&gt;&amp;#160; &amp;#160; for j := 1 to mmax do &lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; Read(A[i, j]);&lt;br /&gt;&amp;#160; ClrScr;&lt;br /&gt;&amp;#160; for i := 1 to nmax do&lt;br /&gt;&amp;#160; &amp;#160; begin&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; for j := 1 to mmax do Write(A[i, j]:3, &#039; &#039;);&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; Writeln;&lt;br /&gt;&amp;#160; &amp;#160; end;&lt;br /&gt;&amp;#160; min := A[1, 1];&lt;br /&gt;&amp;#160; imin := 1;&lt;br /&gt;&amp;#160; for j := 1 to mmax do if A[1, j] &amp;lt; min then min := A[1, j];&lt;br /&gt;&amp;#160; maxmin := min; imaxmin := imin;&lt;br /&gt;&amp;#160; for i := 2 to nmax do&lt;br /&gt;&amp;#160; &amp;#160; begin&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; min := A[i, j]; imin := j;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; for j := 1 to mmax do if A[i, j] &amp;lt; min then&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; begin&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; min := A[i, j];&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; imin := i;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; end;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; if min &amp;gt; maxmin then&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; begin&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; maxmin := min;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; imaxmin := i;&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; end;&lt;br /&gt;&amp;#160; &amp;#160; end;&lt;br /&gt;&amp;#160; Writeln(&#039;Максимальный среди минимальных элемент в строке № &#039;, imaxmin);&lt;br /&gt;&amp;#160; Readln;&lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Fri, 20 Sep 2013 23:05:53 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=11#p11</guid>
		</item>
		<item>
			<title>Вывести на печать элементы целочисленных матриц A(n,m) и B(n,m), кратн</title>
			<link>http://proger.youbb.ru/viewtopic.php?pid=10#p10</link>
			<description>&lt;p&gt;Вывести на печать элементы целочисленных матриц A(n,m) и B(n,m), кратные 3.&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;Program prim; &lt;br /&gt;uses crt; &lt;br /&gt;n,m,a1:integer; &lt;br /&gt;cоnst n=3 &lt;br /&gt;m=10 &lt;br /&gt;type mas= var A:array [1..n,1..m] of real; &lt;br /&gt;var A:mas; &lt;br /&gt;var B:mas; &lt;br /&gt;procedure kratnost(a1:mas) &lt;br /&gt;begin &lt;br /&gt;for i:=1 to n do &lt;br /&gt;for j:=1 to m do&lt;br /&gt;if a1[i,j] mod 3=0 &lt;br /&gt;then &lt;br /&gt;writeln (a1[i,j]) &lt;br /&gt;end; &lt;br /&gt;begin &lt;br /&gt;write(&#039;введите элементы массива&#039;); &lt;br /&gt;for i:=1 to n do &lt;br /&gt;for j:=1 to m do&lt;br /&gt;readln(a[i,j]); &lt;br /&gt;kratnost(a); &lt;br /&gt;readln(b[i,j]); &lt;br /&gt;kratnost(b); &lt;br /&gt;end.&lt;/strong&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (AdmiN)</author>
			<pubDate>Fri, 20 Sep 2013 23:05:18 +0400</pubDate>
			<guid>http://proger.youbb.ru/viewtopic.php?pid=10#p10</guid>
		</item>
	</channel>
</rss>
