Var x,y,v: boolean;beginwrite('X':6, 'Y':6, 'V':6);writeln;for x:=true downto false do beginfor y:=true downto false do beginv:= y and (not x)or (not y);writeln(x:6,y:6,v:6);end;end;writeln;writeln;writeln;write('X':6, 'Y':6, 'V':6);writeln;for x:=true downto false do beginfor y:=true downto false do beginv:= (not y) and (not x)or y;writeln(x:6,y:6,v:6);end;end;end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
