Два задания Постройте таблицы истинности для выражений: a) F= B & (A v B) ㅤㅤㅤㅤㅤㅤㅤ_ b) F= A & - id1548724020220917 от danilklimenko2 17.09.2022 00:22

Question

Информатика: Два задания Постройте таблицы истинности для выражений: a) F= B & (A v B) ㅤㅤㅤㅤㅤㅤㅤ_ b) F= A & (B v B) c) F= A & (A v B v C) ㅤㅤㅤㅤ ㅤㅤㅤㅤㅤㅤ_ d) F= A v B v C 4. Задача: Министры иностранных дел Великобритании, Франции и Германии обсудили за закрытыми дверьми проекты соглашения о полном разоружении, представленные каждой из стран. Отвечая затем на вопрос журналистов: «Чей именно проект был принят?», министры дали такие ответы: Великобритания - «Проект не наш, проект не Франции»; Франция - «Проект

danilklimenko2 · Accepted Answer

// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
var a:=ReadlnString('->').ToWords;
a.Select((x,i)->(x,x.Length,i)).OrderByDescending(x->x[1]).
    ThenBy(x->x[0]).Select(x->x[0]).Println
end.

Пример
-> Карл у Клары украл кораллы Клара у Карла украла кларнет
кларнет кораллы украла Карла Клара Клары украл Карл у у

// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
var s1:='';
var s2:='';
var s:=ReadlnString('->');
var p:integer;
for var i:=1 to s.Length do begin
    p:=pos(s[i],s1);
    if p>0 then s[i]:=s2[p]
    end;
Writeln(s)
end.

Пример
-> abracadabra
deudfdgdeud

MOGZ ответил