Запишите следующие высказывания в виде логических выражений.

1. Если завтра выпадет снег, мы пойдем в лес на лыжах и возьмем с собой собаку.

2. Тот, кто ясно мыслит, ясно говорит.

3. Он - образованный человек и неправда, что у него неважная память.

4. Здесь холодно, и было бы хорошо, если бы ты закрыл окно.

5. Геометрия Евклида непротиворечива и геометрия Лобачевского также непротиворечива.

6. Если данное число делится на 6,то оно делится на 2 и делится на 3.

7. Если данное число делится на 8,то оно является четным или делится на 16 .

8. Если вы были в Париже, то вы видели Лувр или видели Эйфелеву башню.

9. Если говоришь неправду, то либо ошибаешься, либо обманываешь.

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

begin
  var a:=ReadlnString('Вводите:').ToWords;
  var c:=a[0].Last;
  Writeln('Найдено ',a.Where(w->w.First=c).Count,
      ' слов, начинающихся с "',c,'"')
end.

Пример
Вводите: Туча дождь астроном баран арбуз зебра астра велосипед
Найдено 3 слов, начинающихся с "а"

Вариант "а нас в школе учат так", который якобы "проще"

var
  s:string;
  c:char;
  i,k,l,p:integer;
begin
  // Предполагается, что слова разделены ровно одним пробелом
  Write('Вводите: '); Readln(s);
  l:=Length(s);
  if l=1 then Writeln('Найдено одно слово')
  else begin
    p:=Pos(' ',s);
    if (p=0) and (s[1]=s[l]) then Writeln('Найдено одно слово')
    else begin
      c:=s[p-1];
      if s[1]=c then k:=1 else k:=0;
      for i:=p+1 to Length(s)-1 do
        if (s[i]=' ') and (s[i+1]=c) then Inc(k);
        Writeln('Найдено ',k,' слов, начинающихся с "',c,'"')
      end
    end
end.

Если П и Ж аборигены, то она должны всегда говорить правду.Значит Ж(абориген)говорит правду, что он абориген и П передаёт правду. Он абориген.

Если П иЖ пришельцы, то они должны врать.Значит Ж говорит (неправду) я абориген, и П передаёт он пришелец. ---несоответствует контексту.

Если П-пришелец,а Ж-абориген, то П должен врать, а Ж говорить правду. Значит Жсказал правду " я абориген", а проводник передал он пришелец. --- несоответсвует контексту.

Если П- абориген, а Ж пришелец, то П всегда говорит правду, а Ж неправду. Значит  сказал" неправду "я абориген" а П передал он абориген.

В обоих случаях проводник абориген.

 

П- проводник

Ж - житель