Var k,i,n,a:integer;
begin
read(n);
while i<n do begin
read(a);
if (a mod 10=6) then k:=k+1; i:=i+1;
end;
writeln('Чисел, оканчивающихся на 6: ', k);<span>
end.</span>
1) количество возможных комбинаций это кол во символов в алфавите в степени числа букв в слове - при 2-х символах количество возможных слов равно 2^3=8 < 12 это нам не подходит при 3-х символах количество возможных слов равно 3^3=27 > 12
2)тут все чуть сложнее, нехватку условий дополню сам. смысл такой - рас утверждение говорит нам о клетке А и несет 4 бита значит именно 16 тигров находится в этом вальере(2 в 4степени) следовательно самый простой способ определения, при том условии что именно на этих условия шло сообщение о тигре альбиносе, это бональное вычитание 64-16=48. но повторюсь еще раз, как по мне так условий явно нехватает
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadString.Matches('\d').Count.Println
end.
<u>Пример</u>
Сегодня 10.02.2018г., время 23:32
12
Носитель информации - это тот объект, который информацию может хранить и передавать. В системе "человек - телевизор", носителем будет телевизор, ибо он передаёт человеку информацию, а не наоборот
Var s,i:integer;
begin
for i:=100 to 999 do
begin
if ((i mod 100 div 10)mod 2=0) and ((i mod 100 div 10)<>0)
then writeln (i);
s:=s+i;
end;
writeln (s,' сумма всех таких чисел');
end.