Студенты (Name) одной группы для занятий спортом могут выбирать одну из спортивных секций (Section). Найти все секции, которые посещают студенты данной группы. паскаль
1. Файл – это: г) Программа или данные на диске, имеющие имя 2. Выбери правильное имя файла: в) 9 класс А.doc 3. Расширение в имени файла указывает на: б) тип файла 4. Укажи полное имя файла: а) A:\Windows\System\pole.exe 5. Укажи расширение файла: е) exe 6. C:\Ivanov\Petrov\PROGS\prog1.pas. Какая папка является дочерней для папки Ivanov? б) Petrov 7. Файловая система – это: а) совокупность всех файлов на диске 8. Текущий диск – это диск: а) диск, с которым пользователь работает в данный момент времени 9. С какой файловой системой работает операционная система на компьютерах в вашем классе: ? а) простой, б) многоуровневой, в) сложной
10. Какие из расширений в списке используются для файлов, содержащих графические изображения: б) jpeg; д) bmp.
Количество различных салатов R, которые можно приготовить, имея n продуктов и беря для приготовления k из них (k=2,3,... n-1), в математике определяется, как число размещений из n по k и определяется по следующей формуле: Формула красивая, короткая, но неудобная для вычисления. В самом деле, надо найти три факториала, каждый из которых может оказаться достаточно большим числом. Но можно сделать небольшое преобразование и упростить вычисление.
Но это было вычисление R только для конкретного k при заданном n. Нам же нужно найти сумму R для всех k от 2 до n. И да, для k=n формула не предназначена, но зато мы и так понимаем, что для такого случая R=1.
Задача свелась к нахождению обычной суммы
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию!
function C(n,k:integer):integer; begin if n=k then Result:=1 else begin var p:=1.0; for var i:=1 to n-k do p:=p*(k+i)/i; Result:=Round(p); end; end;
begin var n:=ReadInteger('Кол-во продуктов: '); var s:=1; for var i:=2 to n-1 do s:=s+C(n,i); Writeln('Кол-во салатов: ',s) end.
г) Программа или данные на диске, имеющие имя
2. Выбери правильное имя файла:
в) 9 класс А.doc
3. Расширение в имени файла указывает на:
б) тип файла
4. Укажи полное имя файла:
а) A:\Windows\System\pole.exe
5. Укажи расширение файла:
е) exe
6. C:\Ivanov\Petrov\PROGS\prog1.pas. Какая папка является дочерней для папки Ivanov?
б) Petrov
7. Файловая система – это:
а) совокупность всех файлов на диске
8. Текущий диск – это диск:
а) диск, с которым пользователь работает в данный момент времени
9. С какой файловой системой работает операционная система на компьютерах в вашем классе:
?
а) простой,
б) многоуровневой,
в) сложной
10. Какие из расширений в списке используются для файлов, содержащих графические изображения:
б) jpeg;
д) bmp.
Формула красивая, короткая, но неудобная для вычисления. В самом деле, надо найти три факториала, каждый из которых может оказаться достаточно большим числом. Но можно сделать небольшое преобразование и упростить вычисление.
Но это было вычисление R только для конкретного k при заданном n.
Нам же нужно найти сумму R для всех k от 2 до n. И да, для k=n формула не предназначена, но зато мы и так понимаем, что для такого случая R=1.
Задача свелась к нахождению обычной суммы
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!
function C(n,k:integer):integer;
begin
if n=k then Result:=1
else begin
var p:=1.0;
for var i:=1 to n-k do p:=p*(k+i)/i;
Result:=Round(p);
end;
end;
begin
var n:=ReadInteger('Кол-во продуктов: ');
var s:=1;
for var i:=2 to n-1 do s:=s+C(n,i);
Writeln('Кол-во салатов: ',s)
end.
Примеры:
Кол-во продуктов: 3
Кол-во салатов: 4
Кол-во продуктов: 5
Кол-во салатов: 26
Кол-во продуктов: 10
Кол-во салатов: 1013