Логическое выражение: 1) (а или в или с) и (а или не в или с) 2) ((х и не у и z) или (х и не(у и z)) или (х и у и z) или (х и не у)

// pascalabc.net 3.1, сборка 1172 от 19.02.2016 begin   var x: =readlnstring('введите слово х: ');   var y: =readlnstring('введите слово y: ');   var good: =true;   for var i: =1 to y.length do begin       var p: =pos(y[i],x);       if p> 0 then delete(x,p,1)       else begin good: =false; break end       end;   if good then       writeln('можно составить ',y)   else       writeln('нельзя составить ',y) end. тестовое решение: введите слово х: образование введите слово y: название нельзя составить название введите слово х: образование введите слово y: барон можно составить барон

Program Example_180;

Uses crt;

Var m,n,k:word; {n – начальное количество сундуков с

золотом, m-ежегодная " прибыль”

Чахлика Бессмертного, k – “потребности”

Василисы Премудрой}

Sum,Years:word; {Sum – ежегодное накопление Чахлика

Бессмертного, Years-возраст Василисы

Премудрой}

Begin

Clrscr;

Write ('введите начальное количество сундуков с золотом: ’);

Readln(n);

Write(‘Введите ежегодный доход Чахлика: ’);

Readln(m);

Write(‘Введите “потребности” Василисы Премудрой: ’);

Readln(k);

Sum:=n; {Начальный “капитал” Чахлика}

Years:=18; {начальный возраст Василисы}

While Sum<=k do

Begin

Sum:=Sum+m;

Years:=Years+1;

End;

Writeln(‘Василисе уже исполнилось ’,Years,’ лет.‘);

Readkey;{Задержка изображения на экране}

End.

Объяснение:

я переводила вот так получилось