//PascalABC.NET
//Версия 3.4.2
begin
range(1,ReadInteger('n=')).Where(x->x.IsEven).Println;
end.
Машина Малина Шина Маша Молодец Лапа Молоток Риск<span>Стих</span>
1) количество возможных комбинаций это кол во символов в алфавите в степени числа букв в слове - при 2-х символах количество возможных слов равно 2^3=8 < 12 это нам не подходит при 3-х символах количество возможных слов равно 3^3=27 > 12
2)тут все чуть сложнее, нехватку условий дополню сам. смысл такой - рас утверждение говорит нам о клетке А и несет 4 бита значит именно 16 тигров находится в этом вальере(2 в 4степени) следовательно самый простой способ определения, при том условии что именно на этих условия шло сообщение о тигре альбиносе, это бональное вычитание 64-16=48. но повторюсь еще раз, как по мне так условий явно нехватает
Program n_10;
var a,b,c,x: integer; R:Boolean;
begin
WriteLn('Введите трехзначное число>>');
ReadLn(x);
a:=x div 1000;
b:= (x mod 1000) div 100;
c:=x mod 10;
R:= (a*b*c) mod 2 = 0;
WriteLn('Произведение цифр четно?',R)
end.