Есть 3 высказывания
1-правда
0-лож
первое высказывания это "и" 1+0=1, 1+1=1, 0+0=0, 0+1=0.
второе высказывание это "или" 1+0=1, 1+1=1, 0+1=1.
третье высказывание это "не" 1=0, 0=1.
Сами команды:
Опустить перо
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.