Постройте таблицы истинности для сложных ЛВ: a.) (не А или B) и (A или не B)

b.) А и B или А и С

с.) А следует В и С

Question

Информатика: Постройте таблицы истинности для сложных ЛВ: a.) (не А или B) и (A или не B) b.) А и B или А и С с.) А следует В и С

витка9 · Accepted Answer

// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var s:=ReadlnString('Введите текст, оканчивающийся точкой:'+NewLine);
var p:=Pos('.',s); if p>0 then s:=s[:p]; // обрезать лишнее
var a:=s.ToWords;
var sb:=a.Select(w->w.Length);
var max:=sb.Max;
Writeln('Количество слов максимальной длины равно ', sb.Where(x->x=max).Count)
end.

Пример
Введите текст, оканчивающийся точкой:
мама мыла раму маша ела кашу. А это не считается!
Количество слов максимальной длины равно 5

Постройте таблицы истинности для сложных ЛВ: a.) (не А или B) и (A или не B) b.) А и B или А и С с.) А следует В и С

MOGZ ответил

Постройте таблицы истинности для сложных ЛВ: a.) (не А или B) и (A или не B)

b.) А и B или А и С

с.) А следует В и С