Выполните следующие упражнения. 1. Какие из приведенных предложений являются сужде-
ниями?
а) Сколько вам лет? б) Узбекистан независимая рес-
публика; в) Сегодня жаркий день; г) Выходя из класса, вык-
лючайте свет; д) Здравствуй, Навруз; е) Три меньше пяти.
2. Составьте таблицу истинности логического суждения,
выраженного формулой А= Хлуух уух.
3. Справедливы ли следующие отношения:
а) 1 (AvВ) =] Ал] В; б) 1 (A B) = 1 AM] B; г) 1 (1 B) =
- В? (сравните таблицы истинности из упражнений преды-
дущего урока).
4. Запишите логические выражения без действия «И»
так, чтобы их значения оставались неизменными:
а) Ал 1А; б) Алвл С; г) Ay B C; д) Ал Ву] А.
(воспользуйтесь результатами упражнения 3).
5. Запишите логические выражения без действия «ИЛИ»
так, чтобы их значения оставались неизменными:
а) Av | А; б) Ал B C; в) Ал Bv C; г) Ал By 1А.
(воспользуйтесь результатами упражнения 3).
6. В следующих примерах определите порядок выполне-
ния операций и выполните вычисления, если все суждения
будут истиной:
а) А ва D); б) AvByDE; в) (АВ), ПА В); г) (AvВ)
у (ТВ) (ID).
7. Нeкто сказал: «Я — Лжец и художник». Кто этот человек?
С ПРАВИЛЬНОЙ РЕШЕНИЕМ ​

Const
  ru : array[1..33] of Char   =     ('а','б','в','г','д','е','ё','ж','з','и',
                                     'й','к','л','м','н','о','п','р','с','т',
                                     'у','ф','х','ц','ч','ш','щ','ъ','ы','ь',
                                     'э','ю','я');
  en : array[0..33] of String = (' ','a','b','v','g','d','e','ye','zh','z','i',
                                     'y','c','l','m','n','o','p','r','s','t',
                                     'u','f','h','c','ch','sh','sch','`','ы','',
                                     'ea','yu','ja');
{ транскрипцию записал не заглядывая ни в какие справочники - можете кидаться тапками }
 
Function GetIndex(ss : Char) : Byte;
Var ii : Byte;
Begin
  ii:=1;
  While (ii<=33) and (LowerCase(ss)<>ru[ii]) do Inc(ii);
  If ii in [1..33] then GetIndex:=ii else GetIndex:=0;
end;

Function Trans(S : String) : String;
Begin
  If Length(S)>0 then Trans:=en[GetIndex(S[1])]+Trans(Copy(S,2,Length(S)-1))
   else Trans:='';
end;

Begin
  Writeln(Trans('паскаль'));
  Writeln(Trans('ява'));
end.

#include <stdio.h>

int main(void)
{
/* Переменная для хранения числа */
double chislo;

/* Сообщение с запросом для пользователя */
printf("Введите ваше число: ");

/* Считывание числа в определенном формате в определенное место */
scanf("%f", &chislo);

/* Проверяем, является ли число большем нуля (положительным)*/
if (chislo > 0) {
/* Если да, то прибавляем единицу (операция инкремент) */
chislo++;
}
else {
/* Если число отрицательное, то вычитаем из числа двойку */
chislo -= 2;
}

/* Выводим результата */
printf("Результата: %f", chislo);

return NULL;
}