Записать в виде логической формулы следующие высказывания: 1. вчера было пасмурно, а сегодня светит солнце 2. поиски врага длились уже 3 часа, но результатов не было 3..угол называется прямым тогда , когда он равен 90 градусов7 4. ттурист поехал или в турцию или грецию 5. еслиидет дождь, то не светит солнце

1. a = "вчера было пасмурно"; б = "сегодня светит солнце"; f = a & b. 2. a = "поиск длился 3 часа"; б = "результаты были"; f = a & не б.  3. а = "угол называется прямым"; б = "он равен 90 градусов"; f = a -> б. 4. а = "поехал в турцию"; б = "поехал в грецию"; f = a v б.  5. a = "идёт дождь"; б = "светит солнце"; f = a -> не б. 

Рассмотрим пример решения : однажды винни-пух захотел полакомиться медом и пошел к пчелам в гости. по дороге нарвал букет цветов, чтобы подарить труженицам пчелкам. пчелки обрадовались, увидев мишку с букетом цветов, и сказали: «у нас есть большая бочка с медом. мы дадим тебе меда, если ты сможешь с двух сосудов вместимостью 3 л и 5 л налить себе 4 л! » винни-пух долго думал, но все-таки смог решить . как он это сделал? решение: как в результате можно получить 4 л? нужно из 5-литрового сосуда отлить 1 л. а как это сделать? нужно в 3-литровом сосуде иметь ровно 2 л. как их получить? – из 5-литрового сосуда отлить 3 л.  решение лучше и удобнее оформить в виде таблицы: ходы1234565 л522-543 л-3-223 наполняем из бочки 5-литровый сосуд медом (1 шаг). из 5-литрового сосуда отливаем 3 л в 3-литровый сосуд (2 шаг). теперь в 5-литровом сосуде осталось 2 литра меда. выливаем из 3-литрового сосуда мед назад в бочку (3 шаг). теперь из 5-литрового сосуда выливаем те 2 литра меда в 3-литровый сосуд (4 шаг). наполняем из бочки 5-литровый сосуд медом (5 шаг). и из 5-литрового сосуда дополняем медом 3-литровый сосуд. получаем 4 литра меда в 5-литровом сосуде (6 шаг). решена.  поиск решения можно было начать с такого действия: к трем литрам добавить 1 литр.  но тогда решение будет выглядеть следующим образом: ходы123456785 л-335-1143 л3-311-3-( по этому примеру реши)

Var f1: text; f2: text; s1,s2: string; k1,k2: integer; begin; assign(f1,'f1.txt');   reset(f1);     while not eof(f1) do     read(f1,s1); close(f1); assign(f2,'f2.txt');   reset(f2);     while not eof(f2) do     read(f2,s2); close(f2); while pos(',',s1)< > 0 do   begin;     delete(s1,pos(',',s1),1);     inc(k1);   end; while pos(',',s2)< > 0 do   begin;   delete(s2,pos(',',s2),1);   inc(k2);   end; if k1> k2 then writeln('в первом'); if k2> k1 then writeln('во втором'); if k2=k1 then writeln('равно'); end.