Var k,n:integer;
begin
write('k = (k кратно 3) ');
readln(k);
n:=k div 3 mod 10;
writeln(k,'-я цифра последовательности 101102103…149150 = ',n);
end.
Пример:
<span>k = (k кратно 3) 27
27-я цифра последовательности 101102103…149150 = 9</span>
1. (A ∧ ¬B) ∨ (¬A ∧ B)
1. ( (A ∧ ¬B) ∨ ¬A) ∧ ( (A ∧ ¬B) ∨ B) - <em>по закону дистрибутивности</em>;
2. ( (A ∨ ¬A) ∧ (¬B ∨ A) ) ∧ ( (B ∨ A) ∧ (¬B ∨ B) - <em>по закону дистрибутивности</em>;
3. (1 ∧ (¬B ∨ A)) ∧ ( (B ∨ A) ∧ 1) - <em>по закону исключения третьего</em>;
4. (¬B ∨ A) ∧ (B ∨ A) = A - <em>по закону исключения (склеивания)</em>.
2. ¬(A ∨ ¬B)
¬(A ∨ ¬B) = ¬A ∧ B - <em>по закону де Моргана</em>.
3. A ∧ ¬B ∨ C
A ∧ ¬B ∨ C = (C ∨ A) ∧ (C ∧ ¬B) - <em>по закону дистрибутивности</em>.
Если я тебя понял правильно делается запрос на имя Елена и дату рождения 1989 и выдается количество подходящих под запрос в твоем случае таких четверо ответ номер 4 (4 подходящих)
VB.
Dim i As Integer
Dim Massiv() As Integer
For i = 0 To Massiv.Length - 1
Massiv(i) += 4
<span>Next</span>