1задача : В классе в котором учатся Петя и Ваня 31человек.Сколькими можно выбрать из класса футбольную команду (11человек)так чтобы петя и ваня не ходили в команду одновременно.2 задача в почтовом отделении продаются открытки 10сортов .Сколькими можно купить 20открыток ,чтобы среди них были открытки всех типов .3задача Во взводе 3сержанта и 30солдат .Сколькими можно выделить одного сержанта и трех солдат для патрулирования ? 4задача Сколько можно построить различных прямоугольных параллепипедов длина каждого ребра которых является целым числом от 1до 10? 5задача Сколько различных десятичных чисел можно составить из цифр 0,1и 2? 6задача группе из пяти сотрудников выделено 3путевки .Сколько существует распределения путевок если А.Все путевки различны .Б.Все путевки одинаковы? 7задача. В ряду зрительного зала 15кресел .Сколькими можно разместить на них 15человек? 8задача Каждую клетку квадратной таблицы 2*2можно покрасить в черный или белый цвет.Сколько существует различных раскрасок этой таблицы.9задача Сколькими можно отправить 6 писем с тремя курьерами .10задача.у англичан принято давать детям несколько имен .Сколькими можно назвать ребенка ,если общее число имен равно 300,а ему дают не более трех имен?11задача забор состоит из 100досечек .У Тома Сойера есть краски 150 различных цветов .Сколько существует различных раскрасок забора ,если все дощечки покрашены в разный цвет
const
AOper: array [0..3] of string = ('+', '-', '*', '/');
var
a, b, Oper: Integer;
r: Real;
begin
Randomize; // инициализация датчика случайных чисел
a := Random (1001);
b := Random (1001);
Oper := Random (4);
case Oper of
0: r := a + b;
1: r := a - b;
2: r := a * b;
3:if b <> 0 then begin
r := a / b;
end else begin
WriteLn ('Произошла ошибка при делении на ноль');
Exit;
end
else r := -1;
end;
WriteLn (a);
WriteLn (b);
WriteLn (Aoper [Oper]);
if (r >= 0) and (r - Trunc (r) = 0) then begin // если в результате получилось положительное целое число
WriteLn ('yes');
WriteLn (r :6 :0);
end else
WriteLn (' no');
ReadLn;
end.
Объяснение:
r - Trunc (r) // это выделение дробной части числа