Жили – были в лесу: Заяц, Лиса, Волк и Медведь. Как-то раз, весной, после зимней спячки встал медведь и говорит: «Я опять выспаться не успел». Лесные жители давай над ним смеяться. Медведю это не понравилось, и он ушел. Стал он придумывать, как бы им отомстить. Ходил он, ходил, думал, думал и придумал. Зайца он решил испугать, когда он в школу пойдёт, чтобы забыл он туда дорогу. У Лисы своровал деньги, чтобы она не ходила по магазинам, не модничала, и не зазнавалось. А Волка решил подкараулить, поймать и посадить в клетку.
некоторое время. И вот идёт Заяц, а навстречу ему Лиса. Спрашивает Лиса у него: «Ты что такой грустный». А он ей отвечает: «Да меня Медведь пугает, и теперь я не могу в школу ходить», А Лиса говорит: «И у меня неприятность». Заяц спрашивает: «Что случилась?». А она ему: «У меня деньги пропали». Заяц говорит Лисе: «Может это Медведь украл?». Они подумали, почему не видать Волка. Лиса: «Может он заболел». Заяц: «Ну, пойдём, сходим к нему, посмотрим, что он делает». И вот они пришли, стучат в дверь, стучат, а им никто не открывает. Тогда они стали переживать и пошли на поиски. Но Волка было не слыхать.
Решили они сходить к Мудрой Сове. Всё ей рассказали, какие у них неприятности – что натворил Медведь. Мудрая Сова решила вызвать Медведя на лесной совет и убедить его, что он не прав в своих поступка. Вот вызвали Медведя на лесной совет. И стали убеждать его в том, что у каждого есть свои права. Каждый имеет право на образование, поэтому Заяц должен учиться. Каждый имеет право на свободное передвижение, на пользование денежными единицами, а также на право свободного выбора и на личную собственность. Каждый имеет право на свободу, на личную неприкосновенность, а самое главное право на жизнь. Медведю рассказали много всяких прав и убедили его в том, что никто не должен нарушать эти права. Медведь подумал и решил, что он поступил не правильно и не красиво. Решил он исправить свои ошибки: пришёл к Лисе и отдал деньги, Зайца больше не стал пугать, Волка выпустил на волю. Лесные жители извинились перед Медведем за то, что они над ним смеялись. Медведь тоже извинился за свои поступки.
Стали они жить дружно и не ссориться. Потому что каждый знал свои права и их не нарушал. Так если стал мир и покой в лесу, то, как нам, людям, не знать свои права и обязанности, и их не выполнять? Стыдно!
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016 function IsPrime(n:integer):boolean; begin if n<4 then Result:=True else begin var found:= (n mod 2 = 0); var p:=3; while (not found) and (sqr(p)<=n) do begin found:=(n mod p = 0); p+=2 end; Result:=not found end end;
begin Range(100,999).Where(n->IsPrime(n)).Println(',') end.
Результат 101,103,107,109,113,127,131,137,139,149,151,157,163,167,173,179,181,191,193,197,199,211,223,227,229,233,239,241,251,257,263,269,271,277,281,283,293,307,311,313,317,331,337,347,349,353,359,367,373,379,383,389,397,401,409,419,421,431,433,439,443,449,457,461,463,467,479,487,491,499,503,509,521,523,541,547,557,563,569,571,577,587,593,599,601,607,613,617,619,631,641,643,647,653,659,661,673,677,683,691,701,709,719,727,733,739,743,751,757,761,769,773,787,797,809,811,821,823,827,829,839,853,857,859,863,877,881,883,887,907,911,919,929,937,941,947,953,967,971,977,983,991,997
некоторое время. И вот идёт Заяц, а навстречу ему Лиса. Спрашивает Лиса у него: «Ты что такой грустный». А он ей отвечает: «Да меня Медведь пугает, и теперь я не могу в школу ходить», А Лиса говорит: «И у меня неприятность». Заяц спрашивает: «Что случилась?». А она ему: «У меня деньги пропали». Заяц говорит Лисе: «Может это Медведь украл?». Они подумали, почему не видать Волка. Лиса: «Может он заболел». Заяц: «Ну, пойдём, сходим к нему, посмотрим, что он делает». И вот они пришли, стучат в дверь, стучат, а им никто не открывает. Тогда они стали переживать и пошли на поиски. Но Волка было не слыхать.
Решили они сходить к Мудрой Сове. Всё ей рассказали, какие у них неприятности – что натворил Медведь. Мудрая Сова решила вызвать Медведя на лесной совет и убедить его, что он не прав в своих поступка. Вот вызвали Медведя на лесной совет. И стали убеждать его в том, что у каждого есть свои права. Каждый имеет право на образование, поэтому Заяц должен учиться. Каждый имеет право на свободное передвижение, на пользование денежными единицами, а также на право свободного выбора и на личную собственность. Каждый имеет право на свободу, на личную неприкосновенность, а самое главное право на жизнь. Медведю рассказали много всяких прав и убедили его в том, что никто не должен нарушать эти права. Медведь подумал и решил, что он поступил не правильно и не красиво. Решил он исправить свои ошибки: пришёл к Лисе и отдал деньги, Зайца больше не стал пугать, Волка выпустил на волю. Лесные жители извинились перед Медведем за то, что они над ним смеялись. Медведь тоже извинился за свои поступки.
Стали они жить дружно и не ссориться. Потому что каждый знал свои права и их не нарушал. Так если стал мир и покой в лесу, то, как нам, людям, не знать свои права и обязанности, и их не выполнять? Стыдно!
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
Result:=not found
end
end;
begin
Range(100,999).Where(n->IsPrime(n)).Println(',')
end.
Результат
101,103,107,109,113,127,131,137,139,149,151,157,163,167,173,179,181,191,193,197,199,211,223,227,229,233,239,241,251,257,263,269,271,277,281,283,293,307,311,313,317,331,337,347,349,353,359,367,373,379,383,389,397,401,409,419,421,431,433,439,443,449,457,461,463,467,479,487,491,499,503,509,521,523,541,547,557,563,569,571,577,587,593,599,601,607,613,617,619,631,641,643,647,653,659,661,673,677,683,691,701,709,719,727,733,739,743,751,757,761,769,773,787,797,809,811,821,823,827,829,839,853,857,859,863,877,881,883,887,907,911,919,929,937,941,947,953,967,971,977,983,991,997