Составьте программу которая определяет являеться ли сумма цифр введённого целого трёхзначного числа чётным числом

var a,b,c,d,e: integer; begin read(a); c: =a mod 10 ; b: =a div 10 mod 10; d: = a div 100 mod 10; e: =c+d+b; if e mod 2 =0 then write('четное') else write('нечетное'); end.

ответ: A ребята выбрали американский боевик.

Объяснение:

Выделим простые высказывания и запишем их через переменные:

А — «Французский фильм»

В — «Боевик»

С — «Комедия»

Запишем логические функции (сложные высказывания). Учтем условие о том, что каждый из ребят оказался прав в одном предположении:

а) «Французский боевик» A&B˅A&B

б) «Американскую мелодраму» A&B˅ А&В

в) «Нефранцузская комедия» A&C˅A&C

Запишем произведение :

(A&B˅A&B) & (A&B˅ А&В)&( A&C˅A&C)=1.

Упростим формулу: (A&B˅A&B) & (A&B˅ А&В)&( A&C˅A&C)=

(A&B˅A&B) & (A&B˅ А&В)&( A&C˅A&C)=

=(A&B& A&B˅ A&B& A&B˅A&B &А&В˅ A&B&A&B)&( A&C˅A&C)=

=(A&B ˅A&B)&( A&C˅A&C)= A&B& A&C˅A&B& A&C˅ A&B&A&C˅A&B&A&C=

= A&B&C˅ A&B&C =1

Проанализируем результат:

Результат Б и В: не является решением, т.к. в ответе оба утверждения оказываются неверными, что проти­воречит условию задачи.

Результат А: удовлетворяет усло­вию задачи и поэтому является верным решением.

Const   n = 50; {максимальное количество чисел в последовательности}   t = -77; {число-ограничитель, означающее конец ввода} type   ta = array[1..n] of integer; var   a: ta; {массив членов последовательности}   az: ta; {массив, содержащий номера нулей в последовательности}   kz: integer; {количество членов в массиве az}    i, iz, p, n1, n2: integer;   flag: boolean; begin   {вводим числа и сразу же отслеживаем номера нулей в последовательности}   writeln('вводите последовательность чисел, окончание ввода по -77');   i : = 0; iz : = 0;   repeat       read(p);       if p < > t then begin           i : = i + 1;           a[i] : = p;           if p = 0 then begin               iz : = iz + 1;               az[iz] : = i;           end       end   until p = t;   kz : = iz;   writeln('вывод последовательностей');   {1. до первого встреченного нуля}   for i : = 1 to az[1] - 1 do write(a[i], ' ');   writeln;   {2. остальные промежутки}    for iz : = 1 to kz do   begin       for i : = az[iz] + 1 to az[iz + 1] - 1 do write(a[i], ' ');       writeln;   end end. тестовое решение: вводите последовательность чисел, окончание ввода по -77 1 2 3 0 5 6 7 0 0 10 11 12 13 0 15 16 17 18 19 20 -77 вывод последовательностей 1 2 3 5 6 7 10 11 12 13