<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadAllLines('Pushkin.txt');
Writeln('*** Текст в файле ***',NewLine);
a.Println(NewLine);
var n:=a.Select(s->s.ToWords.Count).Where(k->k>0).Min;
a:=ReadLines('Pushkin.txt').Where(s->s.ToWords.Count=n).ToArray;
WriteLines('Result.txt',a);
Writeln(NewLine,'*** Новый файл ***',NewLine);
ReadLines('Result.txt').Println(NewLine)
end.
<u>Пример:</u>
*** Текст в файле ***
Если жизнь тебя обманет,
Не печалься, не сердись!
В день уныния смирись:
День веселья, верь, настанет.
Сердце в будущем живет;
Настоящее уныло:
Всё мгновенно, всё пройдет;
Что пройдет, то будет мило.
(А.С. Пушкин, 1825)
*** Новый файл ***
Настоящее уныло:
Пусть
(x∉A) ≡ ¬А ; (x ∉ P) ≡ ¬P; (x ∈ Q) ≡ Q.
(просто заменяешь скобки на буквы, A и P знак ¬ потому что там " ∉ " )
¬А⇒¬PvQ
Теперь применим формулу ( A⇒B можно заменить на ¬АvB)
Аv¬PvQ
Теперь смотрим на отрезки
<span>P = [10, 25] и Q = [0, 12]
И у нас есть формула : </span>Аv¬PvQ
Смотрим.
¬P ( читается как НЕ P ) значит закрашиваем все что за пределами P = [10, 25] ( у меня зеленым.
Q закрашиваем все что в этом отрезке.
Нам нужен такой отрезок А что бы покрывал то пустое место.
Ответ: <span>А [12;40]</span>
На кодирование каждого диода необходим 1 бит (2 состояния - 0/1)
В сегменте 64х32=2048 (диодов или бит).
8 сегментов кодируются 2048х8=16384 (бит) = 2 кБ.
При ежесекундном изменении состояния будет 3600 обновлений за 1 час.
Таким образом, на час необходимо 2х3600 = 7200 килобайт информации.
Alt+ f10 bkb ghfdjq ryjgs vsib xnj,s drk.xbnm
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var k:= ReadInteger('k =');
var (a,b) :=(1,1);
for var i := 3 to k do
(a,b):= (b,a+b);
Writeln('a) ', b);
(a,b) :=(1,1);
var sum:= 2;
var n:= ReadInteger('n =');
Write('б) 1, 1');
for var i:= 3 to n do
begin
(a,b):= (b,a+b);
Write(', ', b);
sum+= b;
end;
Writeln;
Writeln('в) ', sum.IsEven?'YES':'NO');
end.
