Решение 8 задания - в файле. А вообще-то, учебник надо читать!
9)жгавбед (https://obr.org/rus.org)
10)вагб
Var n,i,j: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> j:=Trunc(sqrt(n));
</span><span> </span><span> for i:=1 to j do write(i*i,' ');
</span><span>end.
</span>
n = 100
<span>1 4 9 16 25 36 49 64 81 100
</span>
Var s:string; i:integer;
begin
writeln('Введите слово:');
readln(s);
for i:=1 to length(s) do write(s[i],' ');
<span>end.
Пример:
Введите слово:
primer
<span>p r i m e r
</span></span>
Для удобства построения таблицы истинности введем логические переменные.
Обозначим 2*2=4 через a, 3*3=9 - через b.
Тогда высказывание примет вид:
Для этого выражения и построим таблицу истинности.
2. Для доказательства равносильности указанных выражений можно построить таблицы истинности и сравнить их.
Как видно, НЕСОВПАДЕНИЕ полное, т.е. ни при каком сочетании a и b выражения не равносильны. Это подтверждается теорией - имеются законы де-Моргана, в которых еще присутствует общее отрицание или в правой. или в левой части.