................................
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadReal('Площадь решета равна');
var a:=ReadArrReal('Введите диаметры клубней:',10);
var d:=sqrt(4*s/pi);
var b:=a.Where(x->x<d);
var n:=b.Count;
if n>0 then begin
Write('Пройдут клубни диаметром '); b.Print;
Writeln(' - всего ',n,' шт.')
end
else Writeln('Ни один клубень не пройдет')
end.
<u>Пример</u>
Площадь решета равна 45
Введите диаметры клубней: 8.6 7.1 9 10.2 6.4 5 6 8.2 6.6 7
Пройдут клубни диаметром 7.1 6.4 5 6 6.6 7 - всего 6 шт.
«Alt+[Shift]+Tab» — переключение между окнами;
«Alt+F4» — закрыть активное окно;
«Alt+Space (пробел)» — открытие системного меню окна. С помощью него можно закрывать, сворачивать, разворачивать, перемещать и изменять размер окна без помощи мыши;
«Alt+Shift» или «Ctrl+Shift» — переключить язык;
«Ctrl+Alt+Delete» — открытие окна «Безопасность Windows»;
«Win» — открытие/закрытие меню «Пуск»;
«Ctrl+Esc» — открытие/закрытие меню «Пуск»;
«Win+D» — свернуть/восстановить все окна, включая диалоговые;
«Win+E» — открытие программы «Проводник»;
«Win+R» — открытие окна «Запуск программы» («Пуск» --> «Выполнить…»);
«Win+F» — открытие окна для поиска;
«Win+L» — заблокировать компьютер;
«Win+M» — сворачивает все окна, кроме диалоговых;
«Win+Pause/Break» — открытие окна «Система»;
«Ctrl+Shift+Esc» — открытие окна «Диспетчер задач»;
«Print Screen» — поместить снимок всего экрана в буфер обмена. В MS-DOS использовалась для вывода на принтер содержимого экрана;
«Alt+Print Screen» — поместить снимок активного окна в буфер обмена;
Перестановки с повторениями
сообщение содержит 3 или 4 цвета.
Вариантов для 3 цвета 3*3*3 = 27
Для 4 цвета подряд 3*3*3*3 = 81
27+81 = 108
Не видно влвлвлулудулубурцшыз