Вправо пока свободно
вниз
вправо 2 раз
вверх
вверх пока слева стена
нц пока снизу стена
вправо
закрасить
кц
Если еще актуально:
program z;
const n=3;
var a,b:array[1..n] of real;
c:array[1..(2*n)] of real;
i,k:integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
readln(b[i]);
k:=1;
for i:=1 to n do
begin
c[k]:=a[i];
writeln(c[k]);
k:=k+1;
c[k]:=b[i];
writeln(c[k]);
k:=k+1;
end;
end.
A) A&B∨!A&A∨B&A∨B&!B∨!A&!B=A&B∨0∨B&A∨0∨!A&!B=A&B∨!A&!B
б) !(A&B)&!(C&!A)&!(B&!C)=!(A&B)&(!C∨!!A)&(!B∨!!C)=!(A&B)&(!C∨A)&(!B∨C)= !(A&B)&(!C&!B∨A&!B∨A&C∨!C&C)=!(A&B)&(!C&!B∨A&!B∨A&C∨0)= !(A&B)&!C&!B∨!(A&B)&A&!B∨!(A&B)&A&C=(!A∨!B)&!C&!B∨(!A∨!B)&A&!B∨ (!A∨!B)&A&C=!A&!C&!B∨!B&!C&!B∨!A&A&!B∨!B&A&!B∨!A&A&C∨!B&A&C= !A&!C&!B∨!C&!B∨0∨A&!B∨0∨!B&A&C=!C&!B&(!A∨1)∨!B&A&(1+C)= !C&!B&1∨!B&A&1=!C&!B∨!B&A=!B&(!C∨A)
В)
A B C !A (!A∨B) F
0 0 0 1 1 0
0 1 0 1 1 0
1 0 0 0 0 1
1 1 0 0 1 0
0 0 1 1 1 1
0 1 1 1 1 1
1 0 1 0 0 0
1 1 1 0 1 1
Окажется 2 файла с расширением .doxc
Путь: С:\Экзамен\Фото\ф5.doxc
Var num : integer;
....
num := arr[0];
for i:=0 to n-1 do arr[i] := arr[i+1];
arr[n] := num;