Ошибка после условия, цикл будет выполнятся бесконечно, так как переменная a всегда будет a=1. Чтобы исправить это, нужно:
s=s+a
n=n+1
a=a+1
Результат - 10.
Var s: string;
begin
read(s);
if (pos('<<,_>>', s) = 0) then
writeln('<<,_>> не встречается в заданной строке')
else
writeln('<<,_>> встречается в заданной строке');
end.
1.
X&¬M&¬HvX&M&HvX&¬M&H
Упростим:
<span>X&¬M&¬HvX&&<span>H
2.
</span></span><span>Не все слоны серые и пять не равно дважды два
</span>3 и 4 смотреть прикрепленные файлы.
Лист Excel живой, можно подставить свои данные.
Таблицу истинности подставляем в лист СДНФ3, получаем формулу, упростив, получим результат.
Лист защищен без пароля, чтобы случайно не повредить формулы. Снимаем защиту, копируем элементы, получаем результат.
Билл Геец - общепринятое но ответ сильно зависит от трактовки понятия "компьютер". Первый цифровой компьютер создал немецкий инженер Конрад Цузе в 1938 году
В счетчиках можно вместо 5 указать константу n и где вывод проверку если равен n запятую не печатаем