Определите значение переменной c после выполнения следующего фрагмента программы: a: =239 b: =13 a: =a/b∗2 если a> b то c: =a−4∗b иначе c: =a+4∗b

program Vozrasr;

var

 AGE: integer;//Переменная возраста

begin

 writeln('Введите любое число от 1 до 120');

 Readln(AGE); //Ввод возраста

 if (AGE < 1) or (AGE > 120) then

begin

   writeln('ERROR!')

end

 else

 begin

   case AGE of  //для чисел от 11 до 20 создаем отд-ый кейс

     11..20: Writeln('ответ: Мне ', AGE, ' лет');

   Else    //иначе если они не входят в диапазон от [11..20], то выполняется второй кейс

     begin

       case AGE mod 10 of     //делим на 10 и получаем остаток =

         1: Writeln('ответ: Мне ', AGE, ' год');

         2..4: Writeln('ответ: Мне ', AGE, ' года');

         0, 5..9: Writeln('ответ: Мне ', AGE, ' лет');

       end;

     end;

   end;

end;

end.

ответ: .

Пошаговое объяснение:

Во-первых, как можно заметить, от C значение функции не зависит.

Особенно это хорошо видно на последних двух строчках. Если убрать переменную C, то получиться таблица из 4 строк:

A B F

0 0 1

0 1  1

1  0 1

1  1 0

Это таблица истинности для отрицания И:   - ответ.

На этом можно было бы остановиться (проверить по таблице истинности с учётом бесполезного С), но сделаем ещё кое-что - выведем это шаг за шагом, докажем, что С - бесполезная и никому не нужная переменная.

Запишем то же выражение в совершенной конъюнктивной нормальной форме. Выберем стоки, которые обращают выражение в Ложь.

A B C F

1   1 0 0

1   1  1 0

Две строки - две скобки. Единица в таблице означает отрицание переменной в скобке. Получаем .

Тут уже видно, что переменная С на результат не влияет. Упростим и приведём это к выражению выше.

- ответ.