Пусть Д – драмкружок, Х – хор, С – спорт.Тогда в круге Д – 27 ребят, в круге Х – 32 человека, в круге С – 22 ученика.Те 10 ребят из драмкружка, которые поют в хоре, окажутся в общей части кругов Д и X. Трое из них ещё и спортсмены, они окажутся в общей части всех трёх кругов. Остальные семеро спортом не увлекаются. Аналогично, 8 – 3 = 5 спортсменов, не поющих в хоре и 6 – 3 = 3, не посещающих драмкружок.Легко видеть, что 5 + 3 + 3 = 11 спортсменов посещают хор или драмкружок,22 – (5 + 3 + 3) = 11 занимаются только спортом; 70 – (11 + 12 + 19 + 7 + 3 + 3 + 5) = 10 – не поют в хоре, не занимаются в драмкружке, не увлекаются спортом.ответ: 10 человек и 11 человек. это математика
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Введите текст, оканчивающийся точкой:'+NewLine); var p:=Pos('.',s); if p>0 then s:=s[:p]; // обрезать лишнее var a:=s.ToWords; var sb:=a.Select(w->w.Length); var max:=sb.Max; Writeln('Количество слов максимальной длины равно ', sb.Where(x->x=max).Count) end.
Пример Введите текст, оканчивающийся точкой: мама мыла раму маша ела кашу. А это не считается! Количество слов максимальной длины равно 5
Д – драмкружок,
Х – хор,
С – спорт.Тогда
в круге Д – 27 ребят,
в круге Х – 32 человека,
в круге С – 22 ученика.Те 10 ребят из драмкружка, которые поют в хоре, окажутся в общей части кругов Д и X. Трое из них ещё и спортсмены, они окажутся в общей части всех трёх кругов. Остальные семеро спортом не увлекаются. Аналогично, 8 – 3 = 5 спортсменов, не поющих в хоре и 6 – 3 = 3, не посещающих драмкружок.Легко видеть, что 5 + 3 + 3 = 11 спортсменов посещают хор или драмкружок,22 – (5 + 3 + 3) = 11 занимаются только спортом; 70 – (11 + 12 + 19 + 7 + 3 + 3 + 5) = 10 – не поют в хоре, не занимаются в драмкружке, не увлекаются спортом.ответ: 10 человек и 11 человек.
это математика
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите текст, оканчивающийся точкой:'+NewLine);
var p:=Pos('.',s); if p>0 then s:=s[:p]; // обрезать лишнее
var a:=s.ToWords;
var sb:=a.Select(w->w.Length);
var max:=sb.Max;
Writeln('Количество слов максимальной длины равно ', sb.Where(x->x=max).Count)
end.
Пример
Введите текст, оканчивающийся точкой:
мама мыла раму маша ела кашу. А это не считается!
Количество слов максимальной длины равно 5