N=2;
Соедини точки 4 и 1; N = N+1 = 2+1 = 3; N=7 ⇒ ложь
Соедини точки 6 и 2; N = N+1 = 3+1 = 4; N=7 ⇒ ложь
Соедини точки 8 и 3; N = N+1 = 4+1 = 5; N=7 ⇒ ложь
Соедини точки 10 и 4; N = N+1 = 5+1 = 6; N=7 ⇒ ложь
Соедини точки 12 и 5; N = N+1 = 6+1 = 7; N=7 ⇒ истина
Полученный рисунок - в прилагаемом файле.
<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)
*** Новый файл ***
Настоящее уныло:
1)182(10 снизу)
2)196(10 снизу)
3)293(10 снизу)
4)55(10 снизу)
Помогите: Составьте слова из букв к,е,н,г,ш,а,п,р,о,м,и,т
irichka7575
Шар,шаг,ритм,рог,ринг,тигр,рот,ром,ген,мера,кино,мир,пот,море,ком,кит,тик,ток,шпат,морг,тир