Ввести рост человека. Вывести на экран ВЫСОКИЙ ,если его рост превышает 180 см;НЕ ОЧЕНЬ ВЫСОКИЙ, если рост меньше или равен 180 см, но больше 160 см; МАЛЕНЬКИЙ, если рост меньше либо равен 160 см .написать три теста к программе.

// Запускается под Pascal ABC.NET

// Тест 1:
//     Ввод: 200

//     Вывод: ВЫСОКИЙ

// Тест 2:
//     Ввод: 170

//     Вывод: НЕ ОЧЕНЬ ВЫСОКИЙ

// Тест 3:
//     Ввод: 105

//     Вывод: МАЛЕНЬКИЙ

var

 rost: Integer;

begin

 Write('Введите свой рост (в см): ');

 ReadLn(rost);

 if rost > 180 then

   WriteLn('ВЫСОКИЙ')

 else

   if rost > 160 then

     WriteLn('НЕ ОЧЕНЬ ВЫСОКИЙ')

   else

     WriteLn('МАЛЕНЬКИЙ');

end.

таблица истинности выражения a → b

а |  b | a → b

0  i  0 |      1

0  i  1 |      1

1  i  0 |      0

1  i  1 |      1

теперь пример: ¬((x> 3)  → (x> 4))

при х = 1: ¬((1> 3)  → (1> 4))= ¬((0)  → (0))=¬(1) = 0,т.е.(1> 3)=ложь(> 4)=ложь(0), а ложь(0) → ложь(0) = истина (1), а отрицание лжи (0) = истина(1)

при х = 2: ¬((2> 3)  → (2> 4))= ¬((0)  → (0))=¬(1) = 0

при х = 3: ¬((3> 3)  → (3> 4))= ¬((0)  → (0))=¬(1) = 0

при х = 4: ¬((4> 3)  → (4> 4))= ¬((1)  → (0))=¬(0) = 1

ответ. х=4.

если выполнить для стандартного алфавита с ё, й итд

получится

а-1 б-2 в-3 г-4 д-5 е-6 ё-7 ж-8 з-9 и-10 й-11 к-12 л-13 м-14 н-15 о-16 п-17

р-18 с-19 т-20 у-21 ф-22 х-23 ц-24 ч-25 ш-26 щ-27 ъ-28 ы-29 ь-30 э-31 ю-32 я-33

слово компьютер

к=12 -8=4 (д)

о=16-5=11(й)

м=14+1=15(н)

п=17+8=25(ч)

ь=30-23=7(ё)

ю=32-13=19(с)

тер (не меняем)

дйнчёстер

но я думаю делалось под алфавит без "ё" и "й" возможно в нем получится "винчестер"