Сидели модераторы znanija.com, модерировали, причины для банов в текстовый файл записывали и жили хорошо.
Модератор с ником m0nclous любил красоту в текстовых файлах, поэтому он каждую причину хорошо форматировал, используя текстовый процессор "LibreOffice Writer". Некоторые спрашивали его, почему же не он не использует "Microsoft office Word"? На это он отвечал, то что он использует на своём компьютере операционную систему "Arch Linux", а на линукс нету microsoft office'а, но есть аналог - libreoffice.
Вот однажды причины для банов изменили и он сел за редактирование своего текстового файла с ними. Писал, писал и тут ему в голову пришла идея: "почему я должен сидеть и модерировать? Я способен на большее!".
После чего он он очистил файл, изменил его название на "hack-pentagon", изменил расширение на ".js" и начал редактировать код, используя текстовый редактор "sublime text 3". Просидел он 3 дня, 3 ночи, очень устал, но закончил свой проэкт. Он запустил свою программу и начался взлом Пентагона.
Но тут прилетает вертолёт, SWAT влетает в окна, скручивает его и садит в тюрьму.
Теперь m0nclous сидит за решеткой и придумывает разные рассказы, после чего записывает их в файл, используя текстовый процессор "Microsoft Word", потом распечатывает их и продаёт. Таким образом он гасит свой миллиардный штраф.
Если сверху стена и снизу стена
то
нц пока справа свободно
вправо
кц
иначе
нц пока слева свободно
влево
кц
все
..... Вроде бы так если правильно условие понял
Нужно что-то присвоить функции для случая, когда (2*a+b-c)<0
Например, так:
function sqrt1 (a, b, c: real): real;
begin
if (2 * a + b - c) < 0 then
<span>begin writeln (' complex number '); sqrt1:=-1; end</span>
else sqrt1:= sqrt(2 * a + b - c);
<span>end;</span>
