Const nx=30;
var a:array[1..nx] of string; p,i,j,n,k:integer; s,d:string;begin
s:='Дана строка символов состоящий из отдельных слов разделенных пробелом';
s:= s + ' Упорядочить слова по длине в убыванию и вывести на печать';
p:=1;while p>0 do begin
i:= i + 1; p:= pos(' ',s);
if p>0 then a[i]:=trim(copy(s,1,p)) else a[i]:=s;writeln(a[i]);Delete(s,1,p);end;
for k:=1 to i do begin
for j:=2 to i do begin
if length(a[j-1]) < length(a[j]) then begin
d:=a[j-1];a[j-1]:=a[j];a[j]:= d;end;end;end;
writeln;
for k:=1 to i do
<span>writeln(a[k]);end.</span>
Ответ:
Все в объяснении
Объяснение:
1.
print(str(a) + '+' + str(b) + '=?') #Выведет: 5+3=?
print(str(a) + '+' + str(b) + '=' + str(a+b)) #Выведет: 5+3=8
2.
print('Z(' + str(a) + ')=F(' + str(b) + ')') #Выведет: Z(5)=F(3)
3.
print('a=' + str(a) + ';b=' + str(b)) Выведет: a=5;b=3
*Мы используем функцию str() из-за того, что конкатенация работает только со строчным типом данных
I=64x проходили год назад.
((1+2):3+4):5=1
1+2+3-4+5-6=1
(1+2+3+4):5))+6-7=1
(1+2)*3-4+5+6-7-8=1
<span>1) F=Av(¬A&B)
По закону дистрибутивности раскроем скобки
</span>(Av¬A)&(AvB)
Av¬A = 1, значит остаётся AvB
<span>2) F =A&(¬AvB)
</span>По тому же закону раскрываем скобки
(A&¬A)v(A&B)
A&¬A = 0, значит остаётся A&B
3. <span>(AvB)&(¬BvA)&(¬CvB)
По закону склеивания </span>(AvB)&(¬BvA) = A , получается, что выражение принимает вид
A&(¬CvB)
Можно раскрыть скобки, получим
A&¬C v A&B
<span>4) F =(1v(AvB))v((AC)&1)
</span>Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1
Получаем выражение
1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1
Ответ 1