В 1965 году, не уверенна на 100 проц, но все же
Значит надо нарисовать таблицу истинности для всех возможных комбинаций значений A и B. Таких комбинаций будет 2^2=4
A B A+B A+(A!*B)
1 1 1 1
1 0 1 1
0 1 1 1
0 0 0 0
В таких задачах идем с конца меняя знаки операций на противоположные, затем собираем алгоритм с конца меняя знаки операций:
50 / 2
25 - 1
24 / 2
12 / 2
6 / 2
3 - 1
2 / 2
1-1
0
Получим :21211121
PascalABC.NET
Программа считает число нулей стоящих на четных местах в строке, считая первый элемент строки нечетным.
var
t : text;
a,k,i : integer;
begin
assign (t,'File.txt');
reset (t);
i := 0; k := 0;
While not Eof (t) do
begin
i := 0;
While not Eoln (t) do
begin
read (t,a);
if (a = 0) and (i = 1) then
k := k +1;
if i = 0 then
i := 1
else
i := 0;
end;
readln (t);
end;
close (t);
writeln (k);<span>
end.</span>