Var i, k, n, count, primes: word;begin readln(n); k := 1; primes := 0; while primes < n do begin count := 0; for i := 1 to k do begin if k mod i = 0 then inc(count) end; if count = 2 then begin write(k, ' '); inc(primes) end; inc(k) end; end.
Упростим исходное выражение при помощи законов булевой алгебры. Введем обозначения: a - п<span>ервая буква согласная;</span> b - в<span>торая буква согласная;</span> c - последняя буква согласная. Тогда:
Переходим к исходной терминологии: "первая буква согласная" И <span>¬"</span>вторая буква согласная" И "последняя буква согласная" Заменим отрицание: "первая буква согласная" И "вторая буква гласная" И "последняя буква согласная" Теперь мы легко находим имя, удовлетворяющее условию: Максим. <u><em>Ответ:</em></u> 2) Максим